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 (file)
--- 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);
 }