From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Mon, 10 Jun 2002 09:51:16 +0000 (+0000)
Subject: Tune test to run in UTF-8 locales
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f2bb49b68cb535c8bc5ed120954660e49ab7d44b;p=p5sagit%2Fp5-mst-13.2.git

Tune test to run in UTF-8 locales
 - test file must be opened as :bytes or high-bit octets
   will be UTF-8 encoded on write in such locales, so
   will not read as expected.

p4raw-id: //depot/perlio@17159
---

diff --git a/ext/PerlIO/t/fallback.t b/ext/PerlIO/t/fallback.t
index 42a958d..1cefa0d 100644
--- a/ext/PerlIO/t/fallback.t
+++ b/ext/PerlIO/t/fallback.t
@@ -48,8 +48,8 @@ close($fh);
 
 {
     no utf8;
-    open($fh,">$file") || die "File cannot be re-opened";
-    print $fh "£0.02\n";
+    open($fh,">:bytes",$file) || die "File cannot be re-opened";
+    print $fh "\xA30.02\n";
     close($fh);
 }