This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
EBCDIC: Disable Encode::JP and Encode::Tcl for now.
authorJarkko Hietaniemi <jhi@iki.fi>
Fri, 22 Feb 2002 13:19:19 +0000 (13:19 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 22 Feb 2002 13:19:19 +0000 (13:19 +0000)
p4raw-id: //depot/perl@14828

ext/Encode/JP/JP.pm
ext/Encode/lib/Encode/Tcl.pm

index f3d4998..e8dfcb9 100644 (file)
@@ -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;
index 8a2efb9..916e175 100644 (file)
@@ -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);