From fc317c14fe8b4c93240743f749fa112fa92d6eb5 Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Thu, 11 Aug 2011 14:13:46 +0000
Subject: [PATCH] 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
---
 perl-xCAT/xCAT/NetworkUtils.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/perl-xCAT/xCAT/NetworkUtils.pm b/perl-xCAT/xCAT/NetworkUtils.pm
index 975aab41b..6ed80b43c 100755
--- a/perl-xCAT/xCAT/NetworkUtils.pm
+++ b/perl-xCAT/xCAT/NetworkUtils.pm
@@ -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);