diff options
Diffstat (limited to 'ext')
| -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; } |