From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 14 Jun 2002 10:39:04 +0000 (+0000)
Subject: UNICOS and UNICOS/mk are broken only on one test.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8bfa5a1316101e8ecf921409116f427b772df413;p=p5sagit%2Fp5-mst-13.2.git

UNICOS and UNICOS/mk are broken only on one test.

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

diff --git a/ext/Socket/socketpair.t b/ext/Socket/socketpair.t
index f9d6ee6..3349f0f 100644
--- a/ext/Socket/socketpair.t
+++ b/ext/Socket/socketpair.t
@@ -117,11 +117,12 @@ ok (shutdown(LEFT, SHUT_WR), "shutdown left for writing");
 {
   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' ||
-         $^O eq 'unicos' || $^O eq 'unicosmk';
+      if $^O eq 'hpux'   || $^O eq 'super-ux';
   alarm 3;
   $! = 0;
   ok (eof RIGHT, "right is at EOF");
+  local $TODO = "Known problems with unix sockets on $^O"
+      if $^O eq 'unicos' || $^O eq 'unicosmk';
   is ($!, '', 'and $! should report no error');
   alarm 60;
 }