From: Mattia Barbon <mbarbon@dsi.unive.it>
Date: Sun, 21 Apr 2002 19:37:51 +0000 (+0200)
Subject: Win32: encode/t/perlio.t needs some binmode
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3f33a51f136072ffb612753a9f5934ab16026b52;p=p5sagit%2Fp5-mst-13.2.git

Win32: encode/t/perlio.t needs some binmode
From: "Mattia Barbon" <mbarbon@dsi.unive.it>
Message-ID: <3CC3150F.5798.22A05AE@localhost>

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

diff --git a/ext/Encode/t/perlio.t b/ext/Encode/t/perlio.t
index 52a161b..936eeb0 100644
--- a/ext/Encode/t/perlio.t
+++ b/ext/Encode/t/perlio.t
@@ -65,6 +65,7 @@ for my $e (qw/euc-jp shiftjis 7bit-jis iso-2022-jp iso-2022-jp-1/){
  SKIP:{
 	skip "$e: !perlio_ok", 1  unless perlio_ok($e) or $DEBUG;
 	open $fh, ">:encoding($e)", $pfile or die "$sfile : $!";
+	binmode $fh;
 	$fh->autoflush(0);
 	print $fh $utext;
 	close $fh;
@@ -78,6 +79,7 @@ for my $e (qw/euc-jp shiftjis 7bit-jis iso-2022-jp iso-2022-jp-1/){
     # this time print line by line.
     # works even for ISO-2022!
     open $fh, ">:encoding($e)", $pfile or die "$sfile : $!";
+    binmode $fh;
     $fh->autoflush(1);
     for my $l (@uline) {
 	print $fh $l;