commit 1d5f0d582c6e82af834adbf60ba75032631b9a32
Author: David Steinbrunner <
[email protected]>
Date: Sat Jul 27 13:15:07 2013 -0400
Variation on RT#86707 to pass failing test
diff --git a/t/SSL_test.t b/t/SSL_test.t
index 040d9ac..c12c1e0 100644
--- a/t/SSL_test.t
+++ b/t/SSL_test.t
@@ -76,6 +76,9 @@ my $ok = eval {
my $remote = IO::Socket::SSL->new(
PeerAddr => $env->{'hostname'},
PeerPort => $env->{'ports'}->[0],
+ # Would use SSL_VERIFY_NONE but that means you have to do a 'use'
+ # on IO::Socket::SSL which is trying to be avoided here
+ SSL_verify_mode => Net::SSLeay::VERIFY_NONE(),
) || die "Couldn't open child to sock: $!";
my $line = <$remote>;
