diff options
| author | Mattia Barbon <mbarbon@dsi.unive.it> | 2002-04-21 21:37:51 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-21 17:09:01 +0000 |
| commit | 3f33a51f136072ffb612753a9f5934ab16026b52 (patch) | |
| tree | 72aa42dbc9eab0d0f3e03608dec76c289001f836 | |
| parent | a9709c401855e2988a7d96164a23d12b6bf4a06a (diff) | |
| download | perl-3f33a51f136072ffb612753a9f5934ab16026b52.tar.gz | |
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
| -rw-r--r-- | ext/Encode/t/perlio.t | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ext/Encode/t/perlio.t b/ext/Encode/t/perlio.t index 52a161b980..936eeb0b63 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; |