diff options
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/Encode/JP/JP.pm | 5 | ||||
| -rw-r--r-- | ext/Encode/lib/Encode/Tcl.pm | 5 |
2 files changed, 10 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; 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); |