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

[Abhijit Menon-Sen]

Change 13997 by ams@lustre on 2002/01/01 13:33:06

        Subject: [better PATCH] Re: Low-lights of Win32 / bleadperl
        From: Nicholas Clark <[EMAIL PROTECTED]>
        Date: Tue, 1 Jan 2002 13:13:17 +0000
        Message-Id: <[EMAIL PROTECTED]>

Affected files ...

.... //depot/perl/ext/Socket/socketpair.t#6 edit

Differences ...

==== //depot/perl/ext/Socket/socketpair.t#6 (text) ====
Index: perl/ext/Socket/socketpair.t
--- perl/ext/Socket/socketpair.t.~1~    Tue Jan  1 06:45:06 2002
+++ perl/ext/Socket/socketpair.t        Tue Jan  1 06:45:06 2002
@@ -15,7 +15,7 @@
 use Test::More;
 use strict;
 use warnings;
-use Errno qw(EPIPE ESHUTDOWN);
+use Errno;
 
 my $skip_reason;
 
@@ -89,7 +89,7 @@
 }
 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", $!, $!;
 }
 
End of Patch.