From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 2 Jul 2003 20:58:19 +0000 (+0000)
Subject: Skip a socketpair test on SCO OSR
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=44dd01776cb5c3f704edbcd874beced643715d5a;p=p5sagit%2Fp5-mst-13.2.git

Skip a socketpair test on SCO OSR

p4raw-id: //depot/perl@19940
---

diff --git a/ext/Socket/socketpair.t b/ext/Socket/socketpair.t
index 9d86be6..95d424a 100644
--- a/ext/Socket/socketpair.t
+++ b/ext/Socket/socketpair.t
@@ -115,7 +115,7 @@ ok (shutdown(LEFT, SHUT_WR), "shutdown left for writing");
 # This will hang forever if eof is buggy, and alarm doesn't interrupt system
 # Calls. Hence the child process minder.
 SKIP: {
-  skip "SCO OpenUNIX has a bug with shutdown", 2 if $^O =~ /^svr/;
+  skip "SCO Unixware / OSR have a bug with shutdown",2 if $^O =~ /^(?:svr|sco)/;
   local $SIG{ALRM} = sub { warn "EOF on right took over 3 seconds" };
   local $TODO = "Known problems with unix sockets on $^O"
       if $^O eq 'hpux'   || $^O eq 'super-ux';