On Mon Jan 15 23:52:45 2018, manabe.hiroshi@gmail.com wrote:
Show quoted text> You can reproduce the bug with the following procedure:
>
> 1. perl -e 'print "\x8f";' > temp.txt
> 2. perl -e 'open my $in, "<:encoding(iso-2022-jp)", "temp.txt"; print
> <$in>;'
On Tue, Jan 16, 2018 at 7:56 AM Hiroshi Manabe
<perlbug-followup@perl.org> wrote:
Show quoted text> You can reproduce the bug with the following procedure:
> 1. perl -e 'print "\x8f";' > temp.txt
> 2. perl -e 'open my $in, "<:encoding(iso-2022-jp)", "temp.txt"; print <$in>;'
Given that this one-liner doesn't hang:
perl -MEncode -e 'decode("iso-2022-jp", "\x8f", Encode::FB_CROAK |
Encode::LEAVE_SRC)'
I'm pretty sure the issue is in PerlIO::encoding, not in Encode. Which
means it's a bug on core's side, not Encode's.
I assume "\x8f" is the start of a multi-byte character. :encoding
doesn't handle such errors at the end of a file well (I think there's
a already a ticket about this but I can't find it, though I'm sure
#84250 is related).
Leon