:encoding(utf8) broken in perl-5.8.6

Message-ID: <lrllcfeank.fsf_-_@caliper.activestate.com>

p4raw-id: //depot/perl@23631

diff --git a/ext/PerlIO/t/encoding.t b/ext/PerlIO/t/encoding.t
index 23266a0..80e2aff 100644 (file)
--- a/ext/PerlIO/t/encoding.t
+++ b/ext/PerlIO/t/encoding.t
@@ -16,7 +16,7 @@ BEGIN {
     }
 }
 
-print "1..14\n";
+print "1..15\n";
 
 my $grk = "grk$$";
 my $utf = "utf$$";
@@ -150,6 +150,17 @@ close(F);
 print "not " unless ($dstr eq $str);
 print "ok 14\n";
 
+# Try decoding some bad stuff
+open(F,'>:raw',$threebyte) || die "Cannot open $threebyte:$!";
+print F "foo\xF0\x80\x80\x80bar\n\x80foo\n";
+close(F);
+
+open(F,'<:encoding(utf-8)',$threebyte) || die "Cannot open $threebyte:$!";
+$dstr = join(":", <F>);
+close(F);
+print "not " unless $dstr eq "foo\\xF0\\x80\\x80\\x80bar\n:\\x80foo\n";
+print "ok 15\n";
+
 END {
     1 while unlink($grk, $utf, $fail1, $fail2, $russki, $threebyte);
 }