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);
}
my $subclass =
($type eq 'X') ? 'Extended' :
- ($type eq 'H') ? 'HanZi' :
- ($type eq 'E') ? 'Escape' : 'Table';
+ ($type eq 'E') ? 'Escape' : 'Table';
my $class = ref($obj) . '::' . $subclass;
# carp "Loading $file";
bless $obj,$class;
require Encode::Tcl::Table;
require Encode::Tcl::Escape;
require Encode::Tcl::Extended;
-require Encode::Tcl::HanZi;
1;
__END__