X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/5ccaf5ccf7191a0bac848e5ab6d8f74c18acde47..3541f8c89632b95e7584a28dde3186c3cd85ed24:/ext/PerlIO/t/fallback.t

diff --git a/ext/PerlIO/t/fallback.t b/ext/PerlIO/t/fallback.t
index 42a958d..049972e 100644
--- a/ext/PerlIO/t/fallback.t
+++ b/ext/PerlIO/t/fallback.t
@@ -49,7 +49,8 @@ close($fh);
 {
     no utf8;
     open($fh,">$file") || die "File cannot be re-opened";
-    print $fh "£0.02\n";
+    binmode($fh);
+    print $fh "\xA30.02\n";
     close($fh);
 }
 
@@ -70,6 +71,3 @@ close($fh);
 END {
     1 while unlink($file);
 }
-
-
-