EBCDIC has different codepoints.

p4raw-id: //depot/perl@17462

diff --git a/lib/PerlIO/via/t/QuotedPrint.t b/lib/PerlIO/via/t/QuotedPrint.t
index 9b2587c..2ce9cfb 100644 (file)
--- a/lib/PerlIO/via/t/QuotedPrint.t
+++ b/lib/PerlIO/via/t/QuotedPrint.t
@@ -9,6 +9,9 @@ BEGIN {
         print "1..0 # Skip: PerlIO not used\n";
        exit 0;
     }
+    if (ord("A") == 193) {
+       print "1..0 # Skip: EBCDIC\n";
+    }
 }
 
 use Test::More tests => 11;