dfda0c2676
- New upstream release 2.007 - BR: perl(Test::More) and perl(Time::HiRes) - Add various other buildreqs for additional test coverage - Don't use macros for commands - Don't need to remove empty directories from the buildroot - Drop %defattr, redundant since rpm 4.4 - Use DESTDIR rather than PERL_INSTALL_ROOT
25 lines
708 B
Diff
25 lines
708 B
Diff
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>;
|