Change 19949 by [EMAIL PROTECTED] on 2003/07/03 06:58:01
No fancy binmode() if no perlio.
Affected files ...
... //depot/perl/ext/IO/lib/IO/t/io_sock.t#10 edit
Differences ...
==== //depot/perl/ext/IO/lib/IO/t/io_sock.t#10 (xtext) ====
Index: perl/ext/IO/lib/IO/t/io_sock.t
--- perl/ext/IO/lib/IO/t/io_sock.t#9~19913~ Tue Jul 1 06:01:10 2003
+++ perl/ext/IO/lib/IO/t/io_sock.t Wed Jul 2 23:58:01 2003
@@ -356,7 +356,7 @@
last SERVER_LOOP unless $sock = $listen->accept;
# Do not print ok/not ok for this binmode() since there's
# a race condition with our client, just die if we fail.
- binmode($sock, ":utf8") or die;
+ if ($has_perlio) { binmode($sock, ":utf8") or die }
while (<$sock>) {
last SERVER_LOOP if /^quit/;
last if /^done/;
End of Patch.
