Upgrade to Encode 0.99, from Dan Kogai.

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

diff --git a/ext/Encode/CN/CN.pm b/ext/Encode/CN/CN.pm
index 9fbe843..9ad7ace 100644 (file)
--- a/ext/Encode/CN/CN.pm
+++ b/ext/Encode/CN/CN.pm
@@ -1,5 +1,10 @@
 package Encode::CN;
-our $VERSION = do { my @r = (q$Revision: 0.96 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+BEGIN {
+    if (ord("A") == 193) {
+       die "Encode::CN not supported on EBCDIC\n";
+    }
+}
+our $VERSION = do { my @r = (q$Revision: 0.99 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
 
 use Encode;
 use Encode::CN::HZ;
@@ -10,6 +15,8 @@ XSLoader::load('Encode::CN',$VERSION);
 # CP936 doesn't have vendor-addon for GBK, so they're identical.
 Encode::define_alias( qr/^gbk$/i => '"cp936"');
 
+use Encode::CN::2022_CN;
+
 1;
 __END__
 =head1 NAME
@@ -53,7 +60,7 @@ also contains extra Taiwan-based encodings.
 ASCII part (0x00-0x7f) is preserved for all encodings, even though it
 conflicts with mappings by the Unicode Consortium.  See
 
-F<http://www.debian.or.jp/~kubota/unicode-symbols.html.en>
+L<http://www.debian.or.jp/~kubota/unicode-symbols.html.en>
 
 to find why it is implemented that way.