More -Mutf8 cleanup.

p4raw-id: //depot/perl@16747

diff --git a/ext/PerlIO/t/fallback.t b/ext/PerlIO/t/fallback.t
index 4676af4..a30d056 100644 (file)
--- a/ext/PerlIO/t/fallback.t
+++ b/ext/PerlIO/t/fallback.t
@@ -45,9 +45,12 @@ my $line = <$fh>;
 is($line,"&#8364;0.02\n","HTML escapes");
 close($fh);
 
-open($fh,">$file") || die "File cannot be re-opened";
-print $fh "£0.02\n";
-close($fh);
+{
+    no utf8;
+    open($fh,">$file") || die "File cannot be re-opened";
+    print $fh "£0.02\n";
+    close($fh);
+}
 
 ok(open($fh,"<encoding(US-ASCII)",$file),"Opened as ASCII");
 my $line = <$fh>;