DB_File 1.806

[p5sagit/p5-mst-13.2.git] / ext / Socket / socketpair.t

diff --git a/ext/Socket/socketpair.t b/ext/Socket/socketpair.t
index be64dfb..3349f0f 100644 (file)
--- a/ext/Socket/socketpair.t
+++ b/ext/Socket/socketpair.t
@@ -121,6 +121,8 @@ ok (shutdown(LEFT, SHUT_WR), "shutdown left for writing");
   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;
 }