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
This commit is contained in:
		| @@ -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"; | ||||
|   | ||||
		Reference in New Issue
	
	Block a user