From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 14 Mar 2003 06:21:48 +0000 (+0000)
Subject: Hopefully this works also in Win32.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=211206a5677817f4bf2f48dc780adc95ba310476;p=p5sagit%2Fp5-mst-13.2.git

Hopefully this works also in Win32.

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

diff --git a/ext/Encode/t/CJKT.t b/ext/Encode/t/CJKT.t
index e24d6d8..4ed1e47 100644
--- a/ext/Encode/t/CJKT.t
+++ b/ext/Encode/t/CJKT.t
@@ -55,8 +55,8 @@ for my $charset (sort keys %Charset){
     my $dst_enc = File::Spec->catfile($dir,"$$.enc");
     my $dst_utf = File::Spec->catfile($dir,"$$.utf");
 
-
     open $src, "<$src_enc" or die "$src_enc : $!";
+    binmode($src, ":bytes"); # needed when :utf8 in default open layer
 
     $txt = join('',<$src>);
     close($src);