diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-11 22:48:24 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-11 22:48:24 +0000 |
| commit | 0c9278d5e0655d29212fbf08164358c07a27bced (patch) | |
| tree | 1b10a295c6b720f03fbc3551183f71dd6937938a /ext/Socket | |
| parent | 30852c57b1a5333a45e16bf8bdc51e232a28eed0 (diff) | |
| download | perl-0c9278d5e0655d29212fbf08164358c07a27bced.tar.gz | |
UNICOS too has sockpair issues (unsurprisingly,
since UNICOS/mk has them too)
p4raw-id: //depot/perl@15869
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 09ee0670a0..c5b72e4d8c 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 'unicosmk' || $^O eq 'super-ux'; + if $^O eq 'hpux' || $^O eq 'unicosmk' || + $^O eq 'unicos' || $^O eq 'super-ux'; alarm 3; $! = 0; ok (eof RIGHT, "right is at EOF"); |