Change 14487 by jhi@alpha on 2002/01/29 14:23:03
OS/390 seems to do length 0 udp reads, Nicholas says
skippage is for now the best cause of action.
Affected files ...
.... //depot/perl/ext/Socket/socketpair.t#12 edit
Differences ...
==== //depot/perl/ext/Socket/socketpair.t#12 (text) ====
Index: perl/ext/Socket/socketpair.t
--- perl/ext/Socket/socketpair.t.~1~ Tue Jan 29 07:30:06 2002
+++ perl/ext/Socket/socketpair.t Tue Jan 29 07:30:06 2002
@@ -184,10 +184,13 @@
}
ok (shutdown(LEFT, 1), "shutdown left for writing");
+
# eof uses buffering. eof is indicated by a sysread of zero.
# but for a datagram socket there's no way it can know nothing will ever be
# sent
-{
+SKIP: {
+ skip "$^O does length 0 udp reads", 2 if ($^O eq 'os390');
+
my $alarmed = 0;
local $SIG{ALRM} = sub { $alarmed = 1; };
print "# Approximate forever as 3 seconds. Wait 'forever'...\n";
@@ -197,6 +200,7 @@
"read on right should be interrupted");
is ($alarmed, 1, "alarm should have fired");
}
+
alarm 30;
#ok (eof RIGHT, "right is at EOF");
End of Patch.
