multiple encodings causes "panic: sv_setpvn called with negative strlen"

[ken_hirsch - Tue 25 03:19:49 2005]:


This is a bug report for perl from kenhirsch (AT) ftml (DOT) net,
generated with the help of perlbug 1.34 running under perl v5.8.0.



[Please enter your report here]


use encoding 'iso-8859-1';
binmode STDUT, ':encoding(iso-8859-1)' or die "binmode:$!";
print "\xe1", "\n";
__END__
output is:
"\x{1280}" does not map to iso-8859-1.
panic: sv_setpvn called with negative strlen.

The same result is obtained with this program:
open UTFILE, ">", "testout.txt" or die "open: $!";
binmode UTFILE, ':encoding(iso-8859-1)' or die "binmode 1:$!";
binmode UTFILE, ':encoding(iso-8859-1)' or die "binmode 2:$!";
print UTFILE "\xe1", "\n";

I was able to replicate this problem in Perl-5.8.6, but I could get the
panic in bleadperl. I'm not sure what change fixed this problem, though.

./perl -Ilib -Mencoding=iso-8859-1 -wle'binmode STDUT,
":encoding(iso-8859-1)" or die "binmode:$!"; print "\xe1", "\n";'
"\x{128a}" does not map to iso-8859-1 at -e line 1.
\x{128a}