From 0b59cce3e10b34b74b7a95d1fae9898c3cd61deb Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 29 Dec 2001 15:05:08 +0000
Subject: socketpair tweaks from Nicholas Clark.

p4raw-id: //depot/perl@13921
---
 ext/Socket/socketpair.t | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'ext')

diff --git a/ext/Socket/socketpair.t b/ext/Socket/socketpair.t
index c31e4df877..653e1b78c9 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 'EPIPE';
+use Errno qw(EPIPE ESHUTDOWN);
 
 my $skip_reason;
 
@@ -89,7 +89,7 @@ $SIG{PIPE} = 'IGNORE';
 }
 SKIP: {
   # This may need skipping on some OSes
-  ok ($! == EPIPE, '$! should be EPIPE')
+  ok (($! == EPIPE or $! == ESHUTDOWN), '$! should be EPIPE or ESHUTDOWN')
     or printf "\$\!=%d(%s)\n", $!, $!;
 }
 
-- 
cgit v1.2.1