diff options
Diffstat (limited to 'INF/ILO2.pm')
-rw-r--r-- | INF/ILO2.pm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/INF/ILO2.pm b/INF/ILO2.pm index 6a5265e..0e2375b 100644 --- a/INF/ILO2.pm +++ b/INF/ILO2.pm @@ -1,6 +1,7 @@ #!/usr/bin/env perl -IO::Socket::SSL::set_ctx_defaults( SSL_verify_mode => SSL_VERIFY_NONE ); +IO::Socket::SSL::set_ctx_defaults( + SSL_verify_mode => Net::SSLeay::VERIFY_NONE() ); package INF::ILO2; @@ -584,7 +585,7 @@ sub new ($;$) { $self->{userid} = undef; $self->{ua}->ssl_opts( - SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE, + SSL_verify_mode => Net::SSLeay::VERIFY_NONE(), verify_hostname => 0, ); @@ -604,9 +605,10 @@ sub new ($;$) { port => $local_port, daemon_class => 'HTTP::Daemon::SSL', daemon_args => [ - LocalAddr => '127.0.0.1', - SSL_key_file => '/usr/local/share/inf/ilo/server.key', - SSL_cert_file => '/usr/local/share/inf/ilo/server.crt', + LocalAddr => '127.0.0.1', + SSL_key_file => '/usr/local/share/inf/ilo/server.key', + SSL_cert_file => '/usr/local/share/inf/ilo/server.crt', + SSL_verify_mode => Net::SSLeay::VERIFY_NONE(), ], ); $self->{server}->mount( |