diff options
| author | Dan Kogai <dankogai@dan.co.jp> | 2003-05-22 03:26:26 +0900 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-21 13:01:42 +0000 |
| commit | 03871ea64ce22022ff5d907fffa52338dafdb782 (patch) | |
| tree | e7f1f894079fc0f2c0bbf1b043d694d3d8114df7 /ext/Encode/t | |
| parent | 66f3f260095e79305afd2e6927af42eda76ba830 (diff) | |
| download | perl-03871ea64ce22022ff5d907fffa52338dafdb782.tar.gz | |
[Encode] 1.95 released
Message-Id: <4B8D9AB5-8B6E-11D7-848A-000393AE4244@dan.co.jp>
p4raw-id: //depot/perl@19578
Diffstat (limited to 'ext/Encode/t')
| -rw-r--r-- | ext/Encode/t/Unicode.t | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/ext/Encode/t/Unicode.t b/ext/Encode/t/Unicode.t index 882d700985..efb39844b3 100644 --- a/ext/Encode/t/Unicode.t +++ b/ext/Encode/t/Unicode.t @@ -1,5 +1,5 @@ # -# $Id: Unicode.t,v 1.9 2002/05/06 10:26:48 dankogai Exp $ +# $Id: Unicode.t,v 1.12 2003/05/21 08:41:11 dankogai Exp $ # # This script is written entirely in ASCII, even though quoted literals # do include non-BMP unicode characters -- Are you happy, jhi? @@ -119,12 +119,12 @@ for my $file (@file){ open my $fh, '<', $path or die "$path:$!"; my $content; if (PerlIO::Layer->find('perlio')){ - binmode $fh => ':utf8'; - $content = join('' => <$fh>); + binmode $fh => ':utf8'; + $content = join('' => <$fh>); }else{ # ugh! - binmode $fh; - $content = join('' => <$fh>); - Encode::_utf8_on($content) + binmode $fh; + $content = join('' => <$fh>); + Encode::_utf8_on($content) } close $fh; is(decode("UTF-7", encode("UTF-7", $content)), $content, |