Change 14092 by jhi@alpha on 2002/01/05 17:26:05
Also UNICOS/mk has deviant socketpair().
Affected files ...
.... //depot/perl/ext/Socket/socketpair.t#8 edit
Differences ...
==== //depot/perl/ext/Socket/socketpair.t#8 (text) ====
Index: perl/ext/Socket/socketpair.t
--- perl/ext/Socket/socketpair.t.~1~ Sat Jan 5 10:30:06 2002
+++ perl/ext/Socket/socketpair.t Sat Jan 5 10:30:06 2002
@@ -98,7 +98,8 @@
# 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");
End of Patch.
