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 | 0f3b375a3d8ff322548079856d11449375076c92 (patch) | |
| tree | d766f07f103ca24540771019468b4cc2b34dd09e /ext/Encode/JP | |
| parent | 028d1f6dbd73ccf759b83a967937383c9b3e0ae9 (diff) | |
| download | perl-0f3b375a3d8ff322548079856d11449375076c92.tar.gz | |
EBCDIC: Disable Encode::JP and Encode::Tcl for now.
p4raw-id: //depot/perl@14828
Diffstat (limited to 'ext/Encode/JP')
| -rw-r--r-- | ext/Encode/JP/JP.pm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/ext/Encode/JP/JP.pm b/ext/Encode/JP/JP.pm index f3d49987da..e8dfcb9367 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; |