1 files changed, 5 insertions, 0 deletions
diff --git a/ext/Encode/JP/JP.pm b/ext/Encode/JP/JP.pm
index f3d49987da..e8dfcb9367 100644
--- 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;