diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-24 22:28:29 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-24 22:28:29 +0000 |
| commit | 8939dedc4705d623db8d3010a186a83a41044b35 (patch) | |
| tree | 289971304578180b54715e986cc083d5d257de61 /ext | |
| parent | bfe34c33e5ad91a724d747f3d2895f9972445943 (diff) | |
| download | perl-8939dedc4705d623db8d3010a186a83a41044b35.tar.gz | |
UNICOS: update test status.
p4raw-id: //depot/perl@16774
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Socket/socketpair.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ext/Socket/socketpair.t b/ext/Socket/socketpair.t index fea1cb53ab..f9d6ee6f6c 100644 --- a/ext/Socket/socketpair.t +++ b/ext/Socket/socketpair.t @@ -117,7 +117,8 @@ 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 'unicosmk'; + if $^O eq 'hpux' || $^O eq 'super-ux' || + $^O eq 'unicos' || $^O eq 'unicosmk'; alarm 3; $! = 0; ok (eof RIGHT, "right is at EOF"); |