ext/PerlIO-encoding/t/encoding.t: Skip on EBCDIC

[perl5.git] / ext / PerlIO-encoding / t / encoding.t

diff --git a/ext/PerlIO-encoding/t/encoding.t b/ext/PerlIO-encoding/t/encoding.t
index fdd1f24..cba14a8 100644 (file)
--- a/ext/PerlIO-encoding/t/encoding.t
+++ b/ext/PerlIO-encoding/t/encoding.t
@@ -9,6 +9,10 @@ BEGIN {
        print "1..0 # Skip: not Encode\n";
        exit 0;
     }
        print "1..0 # Skip: not Encode\n";
        exit 0;
     }

+    if (ord("A") == 193) {
+       print "1..0 # Skip: EBCDIC\n";
+       exit 0;
+    }

     require "../../t/charset_tools.pl";
 }
 
     require "../../t/charset_tools.pl";
 }