EBCDIC: someone who knows what they are doing

and whether it is possible at all in the first
place needs to figure these tests out on EBCDIC.
The CJK encodings heavily abuse their knowledge
of ASCII and that may require a translation layer
or four to survive UTF-EBCDIC.

p4raw-id: //depot/perl@14826

diff --git a/ext/Encode/t/JP.t b/ext/Encode/t/JP.t
index 2e38936..4a3416b 100644 (file)
--- a/ext/Encode/t/JP.t
+++ b/ext/Encode/t/JP.t
@@ -10,6 +10,10 @@ BEGIN {
        print "1..0 # Skip: PerlIO was not built\n";
        exit 0;
     }
+    if (ord("A") == 193) {
+       print "1..0 # Skip: EBCDIC\n";
+       exit 0;
+    }
     $| = 1;
 }
 use strict;

diff --git a/ext/Encode/t/Tcl.t b/ext/Encode/t/Tcl.t
index 950f658..cad5a01 100644 (file)
--- a/ext/Encode/t/Tcl.t
+++ b/ext/Encode/t/Tcl.t
@@ -6,6 +6,10 @@ BEGIN {
       print "1..0 # Skip: Encode was not built\n";
       exit 0;
     }
+    if (ord("A") == 193) {
+       print "1..0 # Skip: EBCDIC\n";
+       exit 0;
+    }
 }
 use Test;
 use Encode qw(encode decode);