Integrate perl

[perl5.git] / ext / PerlIO / t / fallback.t

diff --git a/ext/PerlIO/t/fallback.t b/ext/PerlIO/t/fallback.t
index 42a958d..049972e 100644 (file)
--- 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);
 }
-
-
-