diff options
| author | Nicholas Clark <nick@ccl4.org> | 2002-01-01 13:13:17 +0000 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2002-01-01 13:33:06 +0000 |
| commit | 5ec8c88370d40516e54d2fd037f37774e007c47e (patch) | |
| tree | 02e95f9ac469ccb4f8aae27be43cd1e1419b231d /ext/Socket | |
| parent | 0e57b4e8a1ce68a98d334e524872cae16942643b (diff) | |
| download | perl-5ec8c88370d40516e54d2fd037f37774e007c47e.tar.gz | |
[better PATCH] Re: Low-lights of Win32 / bleadperl
Message-Id: <20020101131316.A475@Bagpuss.unfortu.net>
p4raw-id: //depot/perl@13997
Diffstat (limited to 'ext/Socket')
| -rw-r--r-- | ext/Socket/socketpair.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/Socket/socketpair.t b/ext/Socket/socketpair.t index 653e1b78c9..4f3f278f9e 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", $!, $!; } |