From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 22 May 2002 22:30:57 +0000 (+0000)
Subject: More -Mutf8 cleanup.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e028e334e6e242eec3af2ccca601a39d95d073d7;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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>;