Change 23631 by [EMAIL PROTECTED] on 2004/12/09 16:03:01
Subject: [PATCH] :encoding(utf8) broken in perl-5.8.6
From: Gisle Aas <[EMAIL PROTECTED]>
Date: 03 Dec 2004 06:09:19 -0800
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/ext/PerlIO/t/encoding.t#17 edit
Differences ...
==== //depot/perl/ext/PerlIO/t/encoding.t#17 (text) ====
Index: perl/ext/PerlIO/t/encoding.t
--- perl/ext/PerlIO/t/encoding.t#16~20175~ Mon Jul 21 07:26:43 2003
+++ perl/ext/PerlIO/t/encoding.t Thu Dec 9 08:03:01 2004
@@ -16,7 +16,7 @@
}
}
-print "1..14\n";
+print "1..15\n";
my $grk = "grk$$";
my $utf = "utf$$";
@@ -149,6 +149,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);
End of Patch.
