From 59702b7ed861d3445c365bd9a70829c5f85ebbd9 Mon Sep 17 00:00:00 2001
From: lissav <lissav@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Thu, 11 Aug 2011 19:28:07 +0000
Subject: [PATCH] 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
---
 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);