Moved "$IO::Socket::SSL::VERSION = undef" to Line #37

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@284 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
sakolish 2008-01-17 16:58:07 +00:00
parent d2a06d5636
commit b286429bd1

View File

@ -34,13 +34,13 @@ sub process_request {
# uses that if so. If not, it first tries Net::SSL,
# then IO::Socket::SSL only if that cannot be loaded.
#######################################################
$IO::Socket::SSL::VERSION = undef;
eval { require Net::SSL };
if ( $@ ) {
my $callback = $_[1];
$callback->( {data=>[$@]} );
return(1);
}
$IO::Socket::SSL::VERSION = undef;
xCAT::PPC::process_request(__PACKAGE__,@_);
}