This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
More -Mutf8 cleanup.
[perl5.git] / ext / PerlIO / t / fallback.t
index 4676af4..a30d056 100644 (file)
@@ -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>;