Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

test 95: fix for new SSL_verify_mode warning

use excplicit SSL_verify_mode =>0 option

Fixed conflicts:
	t/issue95.t
	t/testc.sh
  • Loading branch information...
commit 90ce0dae1121312ff47a3d3f43b1e87c4409322b 1 parent 85d78bb
@rurban authored
Showing with 3 additions and 3 deletions.
  1. +2 −2 t/issue95.t
  2. +1 −1  t/testc.sh
View
4 t/issue95.t
@@ -22,14 +22,14 @@ use Net::SSLeay ();
use IO ();
use Socket ();
-my $handle = new IO::Socket::SSL;
+my $handle = IO::Socket::SSL->new(SSL_verify_mode =>0);
$handle->blocking(0);
print "ok";
EOF1
my $typed = <<'EOF2';
use IO::Socket::SSL();
-my IO::Socket::SSL $handle = new IO::Socket::SSL;
+my IO::Handle $handle = IO::Socket::SSL->new(SSL_verify_mode =>0);
$handle->blocking(0);
print "ok";
EOF2
View
2  t/testc.sh
@@ -447,7 +447,7 @@ tests[932]='my $f;BEGIN{open($f,">&STDOUT");}print $f "ok"'
result[932]='ok'
tests[95]='#TODO IO::Socket::SSL::DESTROY
use IO::Socket::SSL();
-my IO::Socket::SSL $handle = new IO::Socket::SSL;
+my IO::Handle $handle = IO::Socket::SSL->new(SSL_verify_mode =>0);
$handle->blocking(0);
print "ok";'
result[95]='ok'
Please sign in to comment.
Something went wrong with that request. Please try again.