The EBCDIC remapping of the low 256 bites again.

[p5sagit/p5-mst-13.2.git] / ext / PerlIO / t / fallback.t

diff --git a/ext/PerlIO/t/fallback.t b/ext/PerlIO/t/fallback.t
index b5eb18d..4676af4 100644 (file)
--- a/ext/PerlIO/t/fallback.t
+++ b/ext/PerlIO/t/fallback.t
@@ -5,6 +5,10 @@ BEGIN {
     @INC = '../lib';
     require "../t/test.pl";
     skip_all("No perlio") unless (find PerlIO::Layer 'perlio');
+    if (ord("A") == 193) {
+       print "1..0 # Skip: EBCDIC\n";
+       exit 0;
+    }
     plan (9);
 }
 use Encode qw(:fallback_all);