diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-05 17:26:05 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-05 17:26:05 +0000 |
| commit | e03d5f0aff9a5c30ff57a7214ca7032caa8e30ae (patch) | |
| tree | 0a86f9a59641c4fbfa8823276b11c9ad65c5f3a1 /ext/Socket | |
| parent | e2e799e5172c5070fc2dea2f53b2d660fbd52204 (diff) | |
| download | perl-e03d5f0aff9a5c30ff57a7214ca7032caa8e30ae.tar.gz | |
Also UNICOS/mk has deviant socketpair().
p4raw-id: //depot/perl@14092
Diffstat (limited to 'ext/Socket')
| -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 c3a548c0bd..3e822c346c 100644 --- a/ext/Socket/socketpair.t +++ b/ext/Socket/socketpair.t @@ -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" }; - 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"); |