diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-11-09 21:52:03 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-11-09 21:52:03 +0000 |
| commit | 38aa2d1871d776152eb9b958f87dbfa1f4c07399 (patch) | |
| tree | 7e192adcb01c2796309dd1d44678f3655b32a4c0 /ext/Encode/t | |
| parent | a45f1ba014589f25fbf825289b49af1c5cc4f3ee (diff) | |
| download | perl-38aa2d1871d776152eb9b958f87dbfa1f4c07399.tar.gz | |
As using -C to turn on utf8 IO is equivalent to the open pragma,
change 25925 had the side effect of breaking ext/Encode/t/perlio.t
Fixed by opening with :bytes.
p4raw-id: //depot/perl@26067
Diffstat (limited to 'ext/Encode/t')
| -rw-r--r-- | ext/Encode/t/perlio.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Encode/t/perlio.t b/ext/Encode/t/perlio.t index 012bbe6099..c3330ef017 100644 --- a/ext/Encode/t/perlio.t +++ b/ext/Encode/t/perlio.t @@ -167,7 +167,7 @@ SKIP:{ open $fh, ">:encoding($utf_nobom)", $sfile or die "$sfile : $!"; print $fh $str; close $fh; - open my $fh, "<", $sfile or die "$sfile : $!"; + open my $fh, "<:bytes", $sfile or die "$sfile : $!"; read $fh, my $cmp, -s $sfile; close $fh; use bytes (); |