diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-19 21:11:55 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-05-19 21:11:55 +0000 |
| commit | 361112d1441e1097a7bd0b98d30ce5a286d3286a (patch) | |
| tree | 748f1248935092af1eccf44de672c5da1a23f9da /ext/Socket | |
| parent | c5af7db2881d5026841118142d5d90d5711d9004 (diff) | |
| download | perl-361112d1441e1097a7bd0b98d30ce5a286d3286a.tar.gz | |
UNICOS/mk seems to still have this problem.
p4raw-id: //depot/perl@16698
Diffstat (limited to 'ext/Socket')
| -rw-r--r-- | ext/Socket/socketpair.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Socket/socketpair.t b/ext/Socket/socketpair.t index be64dfb70c..fea1cb53ab 100644 --- a/ext/Socket/socketpair.t +++ b/ext/Socket/socketpair.t @@ -117,7 +117,7 @@ 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'; + if $^O eq 'hpux' || $^O eq 'super-ux' || $^O eq 'unicosmk'; alarm 3; $! = 0; ok (eof RIGHT, "right is at EOF"); |