From 76b5a8eb31e1198782aa1a9b40b5b31805ad5ea5 Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Sat, 21 Nov 2009 17:44:46 +0000
Subject: [PATCH] -Explicitly instruct SSL to do inet4 only if our ipv6 support
 checks fail

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@4642 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/Client.pm | 2 +-
 xCAT-server/sbin/xcatd   | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/perl-xCAT/xCAT/Client.pm b/perl-xCAT/xCAT/Client.pm
index 2f8937b99..4814b65da 100644
--- a/perl-xCAT/xCAT/Client.pm
+++ b/perl-xCAT/xCAT/Client.pm
@@ -30,7 +30,7 @@ if ($inet6support) {
 unless ($inet6support) {
   eval { require Socket };
   eval { require IO::Socket::INET };
-  eval { require IO::Socket::SSL; IO::Socket::SSL->import() };
+  eval { require IO::Socket::SSL; IO::Socket::SSL->import('inet4') };
 }
 
 
diff --git a/xCAT-server/sbin/xcatd b/xCAT-server/sbin/xcatd
index 8b7571b68..3b4b02927 100755
--- a/xCAT-server/sbin/xcatd
+++ b/xCAT-server/sbin/xcatd
@@ -55,7 +55,7 @@ if ($inet6support) {
 unless ($inet6support) {
   eval { require Socket };
   eval { require IO::Socket::INET };
-  eval { require IO::Socket::SSL; IO::Socket::SSL->import(); };
+  eval { require IO::Socket::SSL; IO::Socket::SSL->import('inet4'); };
 }
 
 my $dispatch_requests = 1; # govern whether commands are dispatchable