--- perl/lib/Encode/HZ.pm	2002/07/25 11:24:36	1.1
+++ perl/lib/Encode/HZ.pm	2002/09/15 04:15:51	1.2
@@ -2,7 +2,7 @@
 use strict;
 
 use vars qw($VERSION);
-$VERSION = do { my @r = (q$Revision: 1.1 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+$VERSION = do {my @r =(q$Revision: 1.2 $ =~ /\d+/g);sprintf "%d."."%02d" x $#r, @r};
 
 use Encode ();
 require Encode::CN;
@@ -71,7 +71,7 @@
 package Encode::HZ::HZ8;
 
 use base qw(Encode::HZ);
-__PACKAGE__->Define(qw/hz8/);
+__PACKAGE__->Define(qw/hz8 x-hz8/);
 
 sub encode ($$;$) {
   my ($obj,$str,$chk) = @_;
@@ -104,6 +104,10 @@
 HZ (HZ-GB-2312 in IANA name), but other variants such as
 HZ8 can't be encoded/decode.
 
+=head1 TODO
+
+Support of extended HZ such as EHZ.
+
 =head1 ACKNOWLEDGEMENTS
 
 Most part of this module is taken from Encode::CN::HZ.