From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 23 Mar 2002 17:17:47 +0000 (+0000)
Subject: Since the Encode::JP is unsupported under EBCDIC we
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9d2ff094047e6ce5b160b281484d40883493c15b;p=p5sagit%2Fp5-mst-13.2.git

Since the Encode::JP is unsupported under EBCDIC we
cannot run this test (aliases as such should work fine).

p4raw-id: //depot/perl@15442
---

diff --git a/ext/Encode/t/Aliases.t b/ext/Encode/t/Aliases.t
index 70dd09f..3640f4b 100644
--- a/ext/Encode/t/Aliases.t
+++ b/ext/Encode/t/Aliases.t
@@ -4,6 +4,13 @@ use strict;
 use Encode;
 use Encode::Alias;
 
+BEGIN {
+    if (ord("A") == 193) {
+	print "1..0 # Skip: EBCDIC\n";
+	exit 0;
+    }
+}
+
 my %a2c;
 
 BEGIN {