From 7b84d06c129218fff6f24a8fde745ed717aec4b6 Mon Sep 17 00:00:00 2001
From: nott <nott@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Wed, 8 Apr 2009 14:51:04 +0000
Subject: [PATCH] Change IO::Socket::SSL require in servicenode script

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@3133 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 xCAT/postscripts/servicenode | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/xCAT/postscripts/servicenode b/xCAT/postscripts/servicenode
index fd35b9217..053c30070 100755
--- a/xCAT/postscripts/servicenode
+++ b/xCAT/postscripts/servicenode
@@ -27,6 +27,11 @@ use lib "$::XCATROOT/lib/perl";
 use strict;
 use IO::Socket;
 
+my $useSocketSSL=eval { require IO::Socket::SSL; };
+if ($useSocketSSL) {
+        require IO::Socket::SSL;
+}
+
 # MAIN
 
 my $rc=0;
@@ -267,7 +272,6 @@ sub getcreds
 #####################################################
 sub getresponse
 {
-    require IO::SOCKET::SSL;
 	my ($req) = @_;
 
 	my $port = "3001";