Blob Blame History Raw
Since 1.950, IO::Socket::SSL->SSL_verify_mode default changed
from SSL_VERIFY_NONE to SSL_VERIFY_PEER, which breaks this test.

IO::Socket::SSL version 1.31 or later is needed for the
SSL_VERIFY_NONE constant.

--- t/SSL_test.t
+++ t/SSL_test.t
@@ -53,6 +53,7 @@
 
 use_ok qw(Net::Server::Proto::SSL) or exit;
 require Net::Server;
+use IO::Socket::SSL 1.31;
 @Net::Server::Test::ISA = qw(Net::Server);
 
 sub accept {
@@ -76,6 +77,7 @@
         my $remote = IO::Socket::SSL->new(
             PeerAddr => $env->{'hostname'},
             PeerPort => $env->{'ports'}->[0],
+            SSL_verify_mode => SSL_VERIFY_NONE,
         ) || die "Couldn't open child to sock: $!";
 
         my $line = <$remote>;