Crypt-SSLeay-0.58_01のパッチ

Crypt-SSLeay-20111123.patch

diff --git a/t/01-connect.t b/t/01-connect.t
index cf6b335..d0b79fc 100644
--- a/t/01-connect.t
+++ b/t/01-connect.t
@@ -2,6 +2,7 @@ use strict;
 use Test::More tests => 8;
 
 use Net::SSL;
+use Errno ();
 
 # ensure no proxification takes place
 $ENV{NO_PROXY} = '127.0.0.1';
@@ -18,7 +19,7 @@ eval {
 my $test_name = 'Net::SSL->new';
 if ($@) {
     my $fail = $@;
-    if ($fail =~ /\AConnect failed: connect: \b/i) {
+    if ($! == Errno::ECONNREFUSED) {
         pass( "$test_name - expected failure" );
     }
     elsif ($fail =~ /\ASSL negotiation failed:/i) {