This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Also UNICOS/mk has deviant socketpair().
authorJarkko Hietaniemi <jhi@iki.fi>
Sat, 5 Jan 2002 17:26:05 +0000 (17:26 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 5 Jan 2002 17:26:05 +0000 (17:26 +0000)
p4raw-id: //depot/perl@14092

ext/Socket/socketpair.t

index c3a548c..3e822c3 100644 (file)
@@ -98,7 +98,8 @@ ok (shutdown(LEFT, SHUT_WR), "shutdown left for writing");
 # Calls. Hence the child process minder.
 {
   local $SIG{ALRM} = sub { warn "EOF on right took over 3 seconds" };
 # Calls. Hence the child process minder.
 {
   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';
+  local $TODO = "Known problems with unix sockets on $^O"
+      if $^O eq 'hpux' || $^O eq 'unicosmk';
   alarm 3;
   $! = 0;
   ok (eof RIGHT, "right is at EOF");
   alarm 3;
   $! = 0;
   ok (eof RIGHT, "right is at EOF");