Remove HanZi and 7bit-kr, from SADAHIRO Tomoyuki.

[p5sagit/p5-mst-13.2.git] / ext / Encode / lib / Encode / Tcl.pm

diff --git a/ext/Encode/lib/Encode/Tcl.pm b/ext/Encode/lib/Encode/Tcl.pm
index 916e175..9ed3fe5 100644 (file)
--- a/ext/Encode/lib/Encode/Tcl.pm
+++ b/ext/Encode/lib/Encode/Tcl.pm
@@ -103,8 +103,7 @@ sub loadEncoding
        }
        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;
@@ -132,7 +131,6 @@ sub INC_find
 require Encode::Tcl::Table;
 require Encode::Tcl::Escape;
 require Encode::Tcl::Extended;
-require Encode::Tcl::HanZi;
 
 1;
 __END__