diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-22 13:19:19 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-22 13:19:19 +0000 |
| commit | 3f6d516763d079ec0b41a747bcf2c4a30c69c9ec (patch) | |
| tree | d766f07f103ca24540771019468b4cc2b34dd09e /ext/Encode/lib | |
| parent | bb0ba2ffc7180b55068ad3d298e3100376102ab6 (diff) | |
| download | perl-3f6d516763d079ec0b41a747bcf2c4a30c69c9ec.tar.gz | |
EBCDIC: Disable Encode::JP and Encode::Tcl for now.
p4raw-id: //depot/perl@14828
Diffstat (limited to 'ext/Encode/lib')
| -rw-r--r-- | ext/Encode/lib/Encode/Tcl.pm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/ext/Encode/lib/Encode/Tcl.pm b/ext/Encode/lib/Encode/Tcl.pm index 8a2efb937a..916e175854 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); |