From 3b9fe409bf178abdc554b802cbae04327db75160 Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Thu, 20 Jan 2011 21:36:52 +0000
Subject: [PATCH] -Fix Client.pm inability to support IPv6 correctly

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@8721 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/Client.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/perl-xCAT/xCAT/Client.pm b/perl-xCAT/xCAT/Client.pm
index 38960385f..5c527628e 100644
--- a/perl-xCAT/xCAT/Client.pm
+++ b/perl-xCAT/xCAT/Client.pm
@@ -19,13 +19,13 @@ my $inet6support;
 if ($^O =~ /^aix/i) {  # disable AIX IPV6  TODO fix
  $inet6support = 0;
 } else {
-  $inet6support=eval { require Socket6 };
+  $inet6support=eval { require Socket6; 1; };
 }
 if ($inet6support) {
-   $inet6support = eval { require IO::Socket::INET6 };
+   $inet6support = eval { require IO::Socket::INET6; 1; };
 }
 if ($inet6support) {
-   $inet6support = eval { require IO::Socket::SSL; IO::Socket::SSL->import('inet6'); };
+   $inet6support = eval { require IO::Socket::SSL; IO::Socket::SSL->import('inet6'); 1;};
 }
 unless ($inet6support) {
   eval { require Socket };