From 28d5c5313bdb8674282c853ab03949a6c82b8b88 Mon Sep 17 00:00:00 2001
From: lissav <lissav@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Tue, 2 Jun 2009 18:39:33 +0000
Subject: [PATCH]  enhance logic to not pull in Socket6 at all for AIX

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

diff --git a/perl-xCAT/xCAT/Client.pm b/perl-xCAT/xCAT/Client.pm
index 12552dfce..800fe61b0 100644
--- a/perl-xCAT/xCAT/Client.pm
+++ b/perl-xCAT/xCAT/Client.pm
@@ -7,9 +7,10 @@ BEGIN
 }
 
 my $inet6support;
-$inet6support=eval { require Socket6 };
 if ($^O =~ /^aix/i) {  # disable AIX IPV6  TODO fix
  $inet6support = 0;
+} else {
+  $inet6support=eval { require Socket6 };
 }
 if ($inet6support) {
    $inet6support = eval { require IO::Socket::INET6 };