Make NetworkUtils.pm less fatalistic about IPv6 for now

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@10272 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2011-08-11 14:13:46 +00:00
parent eccf1b6fe7
commit fc317c14fe

View File

@ -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);