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 (file)
--- 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 {