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:
parent
d2a06d5636
commit
b286429bd1
@ -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__,@_);
|
||||
}
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user