From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 22 Feb 2002 13:19:19 +0000 (+0000)
Subject: EBCDIC: Disable Encode::JP and Encode::Tcl for now.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0f3b375a3d8ff322548079856d11449375076c92;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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);