diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-03-14 06:21:48 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-03-14 06:21:48 +0000 |
| commit | 211206a5677817f4bf2f48dc780adc95ba310476 (patch) | |
| tree | 129fd46c5615de6c770a4b4878e79bea4a7a84c2 /ext/Encode | |
| parent | 8e5f3f285c3a089acb6e38e5ef624a23fca2164f (diff) | |
| download | perl-211206a5677817f4bf2f48dc780adc95ba310476.tar.gz | |
Hopefully this works also in Win32.
p4raw-id: //depot/perl@18970
Diffstat (limited to 'ext/Encode')
| -rw-r--r-- | ext/Encode/t/CJKT.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Encode/t/CJKT.t b/ext/Encode/t/CJKT.t index e24d6d8db5..4ed1e4710d 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); |