From 74a39a2caaa20c21d84aa30ea555ada51f733eca Mon Sep 17 00:00:00 2001
From: sakolish <sakolish@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Mon, 2 Jun 2008 17:29:52 +0000
Subject: [PATCH] Comment change

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1551 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 xCAT-server-2.0/lib/xcat/plugins/fsp.pm | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/xCAT-server-2.0/lib/xcat/plugins/fsp.pm b/xCAT-server-2.0/lib/xcat/plugins/fsp.pm
index 65e67dcf1..5c6dbbc8c 100644
--- a/xCAT-server-2.0/lib/xcat/plugins/fsp.pm
+++ b/xCAT-server-2.0/lib/xcat/plugins/fsp.pm
@@ -26,22 +26,20 @@ sub preprocess_request {
     # When used, POST/GETs return immediately with:
     #     500 Can't connect to <nodename>:443 (Timeout)
     #
-    # Net::HTTPS, used by LWP::Protocol::https::Socket,
+    # Net::HTTPS, which is used by LWP::Protocol::https::Socket,
     # uses either IO::Socket::SSL or Net::SSL. It chooses
     # by looking to see if $IO::Socket::SSL::VERSION
     # is defined (i.e. the module's already loaded) and
     # uses that if so. If not, it first tries Net::SSL,
     # then IO::Socket::SSL only if that cannot be loaded.
+    # So we should invalidate  IO::Socket::SSL here and
+    # load Net::SSL.
     #######################################################
     $IO::Socket::SSL::VERSION = undef;
     eval { require Net::SSL };
     if ( $@ ) {
         my $callback = $_[1];
-        my %output;
-
-        $output{errorcode} = 1;
-        $output{data} = [$@];
-        $callback->( \%output );
+        $callback->( {errorcode=>1,data=>[$@]} );
         return(1);
     }
     xCAT::PPC::preprocess_request(__PACKAGE__,@_);