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

p4raw-id: //depot/perl@14828

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;

diff --git a/ext/Encode/lib/Encode/Tcl.pm b/ext/Encode/lib/Encode/Tcl.pm
index 8a2efb9..916e175 100644 (file)
--- a/ext/Encode/lib/Encode/Tcl.pm
+++ b/ext/Encode/lib/Encode/Tcl.pm
@@ -1,4 +1,9 @@
 package Encode::Tcl;
+BEGIN {
+    if (ord("A") == 193) {
+       die "Encode::JP not supported on EBCDIC\n";
+    }
+}
 use strict;
 our $VERSION = do {my @r=(q$Revision: 1.1 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r};
 use Encode qw(find_encoding);