From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 22 Feb 2002 04:30:27 +0000 (+0000)
Subject: EBCDIC: someone who knows what they are doing
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=72f0eb7149a29643bda6f014003e4c19e344efd2;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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);