[better PATCH] Re: Low-lights of Win32 / bleadperl

Message-Id: <20020101131316.A475@Bagpuss.unfortu.net>

p4raw-id: //depot/perl@13997

diff --git a/ext/Socket/socketpair.t b/ext/Socket/socketpair.t
index 653e1b7..4f3f278 100644 (file)
--- a/ext/Socket/socketpair.t
+++ b/ext/Socket/socketpair.t
@@ -15,7 +15,7 @@ use Socket;
 use Test::More;
 use strict;
 use warnings;
-use Errno qw(EPIPE ESHUTDOWN);
+use Errno;
 
 my $skip_reason;
 
@@ -89,7 +89,7 @@ $SIG{PIPE} = 'IGNORE';
 }
 SKIP: {
   # This may need skipping on some OSes
-  ok (($! == EPIPE or $! == ESHUTDOWN), '$! should be EPIPE or ESHUTDOWN')
+  ok (($!{EPIPE} or $!{ESHUTDOWN}), '$! should be EPIPE or ESHUTDOWN')
     or printf "\$\!=%d(%s)\n", $!, $!;
 }