Add checking of isIpaddr

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@8691 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
2011-01-18 08:00:48 +00:00
parent dc74401e09
commit 212afb813f
1 changed files with 4 additions and 0 deletions
--- 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+)$/)