diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-14 10:39:04 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-14 10:39:04 +0000 |
| commit | 8bfa5a1316101e8ecf921409116f427b772df413 (patch) | |
| tree | 41731e24db3b2a6fc4ca428443d8e5bcae58f12d /ext/Socket/socketpair.t | |
| parent | 218ab4da7d1407175b6a98e2e1336ae429271b8c (diff) | |
| download | perl-8bfa5a1316101e8ecf921409116f427b772df413.tar.gz | |
UNICOS and UNICOS/mk are broken only on one test.
p4raw-id: //depot/perl@17230
Diffstat (limited to 'ext/Socket/socketpair.t')
| -rw-r--r-- | ext/Socket/socketpair.t | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ext/Socket/socketpair.t b/ext/Socket/socketpair.t index f9d6ee6f6c..3349f0fd93 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; } |