From 212afb813f1c723f7c84bb40b5d86225009c5bb5 Mon Sep 17 00:00:00 2001
From: yinle <yinle@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Tue, 18 Jan 2011 08:00:48 +0000
Subject: [PATCH] Add checking of isIpaddr

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@8691 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/Utils.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/perl-xCAT/xCAT/Utils.pm b/perl-xCAT/xCAT/Utils.pm
index 76cc374cb..e309e83d4 100644
--- a/perl-xCAT/xCAT/Utils.pm
+++ b/perl-xCAT/xCAT/Utils.pm
@@ -5624,6 +5624,10 @@ sub get_subnet_aix
 sub isIpaddr
 {
     my $addr = shift;
+    if (($addr) && ($addr =~ /xCAT::Utils/))
+    {
+        $addr = shift;
+    }
 
     #print "addr=$addr\n";
     if ($addr !~ /^(\d+)\.(\d+)\.(\d+)\.(\d+)$/)