EBCDIC: Disable Encode::JP and Encode::Tcl for now.

[p5sagit/p5-mst-13.2.git] / ext / Encode / JP / JP.pm

diff --git a/ext/Encode/JP/JP.pm b/ext/Encode/JP/JP.pm
index f3d4998..e8dfcb9 100644 (file)
--- a/ext/Encode/JP/JP.pm
+++ b/ext/Encode/JP/JP.pm
@@ -1,4 +1,9 @@
 package Encode::JP;
+BEGIN {
+    if (ord("A") == 193) {
+       die "Encode::JP not supported on EBCDIC\n";
+    }
+}
 use Encode;
 our $VERSION = '0.02';
 use XSLoader;