fix defect 3384108

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/branches/2.6@10273 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
2011-08-11 19:28:07 +00:00
parent 9e58da04bb
commit 59702b7ed8
1 changed files with 2 additions and 1 deletions
@@ -261,7 +261,8 @@ sub getipaddr
             #return inet_ntoa(inet_aton($iporhost))
             #TODO, what if no scoket6 support, but passing in a IPv6 hostname?
 	     if ($iporhost =~ /:/) { #ipv6
-		die "Attempt to process IPv6 address, but system does not have requisite IPv6 perl support";
+		return undef;
+		#die "Attempt to process IPv6 address, but system does not have requisite IPv6 perl support";
 	     }
 	     my $packed_ip;
             $iporhost and $packed_ip = inet_aton($iporhost);