Change 17230 by jhi@alpha on 2002/06/14 10:39:04
UNICOS and UNICOS/mk are broken only on one test.
Affected files ...
.... //depot/perl/ext/Socket/socketpair.t#27 edit
Differences ...
==== //depot/perl/ext/Socket/socketpair.t#27 (text) ====
Index: perl/ext/Socket/socketpair.t
--- perl/ext/Socket/socketpair.t#26~16774~ Fri May 24 15:28:29 2002
+++ perl/ext/Socket/socketpair.t Fri Jun 14 03:39:04 2002
@@ -117,11 +117,12 @@
{
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' ||
- $^O eq 'unicos' || $^O eq 'unicosmk';
+ if $^O eq 'hpux' || $^O eq 'super-ux';
alarm 3;
$! = 0;
ok (eof RIGHT, "right is at EOF");
+ local $TODO = "Known problems with unix sockets on $^O"
+ if $^O eq 'unicos' || $^O eq 'unicosmk';
is ($!, '', 'and $! should report no error');
alarm 60;
}
End of Patch.
