From: Nicholas Clark <nick@ccl4.org>
Date: Tue, 1 Jan 2002 13:13:17 +0000 (+0000)
Subject: [better PATCH] Re: Low-lights of Win32 / bleadperl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5ec8c88370d40516e54d2fd037f37774e007c47e;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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", $!, $!;
 }