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 (file)
--- 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';