This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Skip a socketpair test on SCO OSR
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 2 Jul 2003 20:58:19 +0000 (20:58 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 2 Jul 2003 20:58:19 +0000 (20:58 +0000)
p4raw-id: //depot/perl@19940

ext/Socket/socketpair.t

index 9d86be6..95d424a 100644 (file)
@@ -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';