From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 3 Jul 2003 06:58:01 +0000 (+0000)
Subject: No fancy binmode() if no perlio.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=29929b39a945ffaa1ec08a555bb88e3629d429b4;p=p5sagit%2Fp5-mst-13.2.git

No fancy binmode() if no perlio.

p4raw-id: //depot/perl@19949
---

diff --git a/ext/IO/lib/IO/t/io_sock.t b/ext/IO/lib/IO/t/io_sock.t
index abaeafb..52ddae7 100755
--- a/ext/IO/lib/IO/t/io_sock.t
+++ b/ext/IO/lib/IO/t/io_sock.t
@@ -356,7 +356,7 @@ if( $server_pid) {
 	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/;