Change 14828 by jhi@alpha on 2002/02/22 13:19:19
EBCDIC: Disable Encode::JP and Encode::Tcl for now.
Affected files ...
.... //depot/perl/ext/Encode/JP/JP.pm#2 edit
.... //depot/perl/ext/Encode/lib/Encode/Tcl.pm#2 edit
Differences ...
==== //depot/perl/ext/Encode/JP/JP.pm#2 (text) ====
Index: perl/ext/Encode/JP/JP.pm
--- perl/ext/Encode/JP/JP.pm.~1~ Fri Feb 22 06:30:05 2002
+++ perl/ext/Encode/JP/JP.pm Fri Feb 22 06:30:05 2002
@@ -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;
==== //depot/perl/ext/Encode/lib/Encode/Tcl.pm#2 (text) ====
Index: perl/ext/Encode/lib/Encode/Tcl.pm
--- perl/ext/Encode/lib/Encode/Tcl.pm.~1~ Fri Feb 22 06:30:05 2002
+++ perl/ext/Encode/lib/Encode/Tcl.pm Fri Feb 22 06:30:05 2002
@@ -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);
End of Patch.
