This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
30852c5
)
UNICOS too has sockpair issues (unsurprisingly,
author
Jarkko Hietaniemi
<jhi@iki.fi>
Thu, 11 Apr 2002 22:48:24 +0000
(22:48 +0000)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Thu, 11 Apr 2002 22:48:24 +0000
(22:48 +0000)
since UNICOS/mk has them too)
p4raw-id: //depot/perl@15869
ext/Socket/socketpair.t
patch
|
blob
|
blame
|
history
diff --git
a/ext/Socket/socketpair.t
b/ext/Socket/socketpair.t
index
09ee067
..
c5b72e4
100644
(file)
--- 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");