Re: Smoke [5.9.2] 22818 FAIL(F) MSWin32 WinXP/.Net SP1 (x86/1 cpu)

Message-ID: <40A4F4CD.2000003@uk.radan.com>

p4raw-id: //depot/perl@22827

diff --git a/t/comp/utf.t b/t/comp/utf.t
index a7b8566..d2037a2 100644 (file)
--- a/t/comp/utf.t
+++ b/t/comp/utf.t
@@ -17,7 +17,7 @@ my $BOM = chr(0xFEFF);
 
 sub test {
     my ($enc, $tag, $bom) = @_;
 
 sub test {
     my ($enc, $tag, $bom) = @_;

-    open(UTF_PL, ">:encoding($enc)", "utf.pl")
+    open(UTF_PL, ">:raw:encoding($enc)", "utf.pl")

        or die "utf.pl($enc,$tag,$bom): $!";
     print UTF_PL $BOM if $bom;
     print UTF_PL "$tag\n";
        or die "utf.pl($enc,$tag,$bom): $!";
     print UTF_PL $BOM if $bom;
     print UTF_PL "$tag\n";