p5pRT
commented
8 years ago From zhouzhen1@gmail.com
Created by zhouzhen1@gmail.com
I saw the issue when I use File::Slurper + Data::Table together in one script. I then simplified the demo case to be like below. Basically it's like\, you open a file in with some encoding\, and set $PerlIO::encoding::fallback in that "local"\, then out of that "local" scope you open another file with some encoding\, you get an infinite loop when reading the second file.
use 5.022;
my $file1 = '/tmp/foo'; my $file2 = '/tmp/bar'; system("echo bar > $file2");
{ # what's in File::Slurper my $layer = ':raw:encoding(utf-8)'; local $PerlIO::encoding::fallback = 1; open my $fh1\, ">$layer"\, $file1 or die $!; close $fh1 or die $!; }
{ # what's in Data::Table open(my $fh2\, $file2) or die $!; binmode $fh2\, ":encoding(UTF-8)"; while (my $line = \<$fh2>) { warn $line; } }
It can also be simplified to like below.
use 5.022;
my $file1 = '/tmp/foo'; my $file2 = '/tmp/bar'; system("echo foo > $file1"); system("echo bar > $file2");
{ local $PerlIO::encoding::fallback = 1; open my $fh1\, "\<:encoding(utf-8)"\, $file1 or die $!; close $fh1 or die $!; }
{ open my $fh2\, '\<:encoding(utf-8)'\, $file2 or die $!; while (my $line = \<$fh2>) { warn $line; } }
Migrated from rt.perl.org#127149 (status was 'open')
Searchable as RT127149$