On Wed, Mar 20, 2002 at 05:38:52PM +0900, Dan Kogai wrote:
+ Encoding aliases added. Note TW is left untouched because
euc-tw is not implemented in TW but in Encode::HanExtra.
Autrijus, you may fix Encode::HanExtra.
Ok, I'll fix it. Attached please find aliases to TW.pm, and a
pedantic correction to Encode.pm usage.
/Autrijus/
diff -ur Encode-0.93.old/CN/CN.pm Encode-0.93/CN/CN.pm
--- Encode-0.93.old/CN/CN.pm Wed Mar 20 16:48:52 2002
+++ Encode-0.93/CN/CN.pm Wed Mar 20 16:53:28 2002
@@ -17,7 +17,7 @@
=head1 SYNOPSIS
- use Encode 'encode';
+ use Encode qw/encode decode/;
$euc_cn = encode("euc-cn", $utf8); # loads Encode::CN implicitly
$utf8 = decode("euc-cn", $euc_cn); # ditto
diff -ur Encode-0.93.old/JP/JP.pm Encode-0.93/JP/JP.pm
--- Encode-0.93.old/JP/JP.pm Wed Mar 20 16:48:52 2002
+++ Encode-0.93/JP/JP.pm Wed Mar 20 16:53:31 2002
@@ -28,7 +28,7 @@
=head1 SYNOPSIS
- use Encode 'encode';
+ use Encode qw/encode decode/;
$euc_jp = encode("euc-jp", $utf8); # loads Encode::JP implicitly
$utf8 = decode("euc-jp", $euc_jp); # ditto
diff -ur Encode-0.93.old/KR/KR.pm Encode-0.93/KR/KR.pm
--- Encode-0.93.old/KR/KR.pm Wed Mar 20 16:48:52 2002
+++ Encode-0.93/KR/KR.pm Wed Mar 20 16:53:34 2002
@@ -16,7 +16,7 @@
=head1 SYNOPSIS
- use Encode 'encode';
+ use Encode qw/encode decode/;
$euc_kr = encode("euc-kr", $utf8); # loads Encode::KR implicitly
$utf8 = decode("euc-kr", $euc_kr); # ditto
diff -ur Encode-0.93.old/TW/TW.pm Encode-0.93/TW/TW.pm
--- Encode-0.93.old/TW/TW.pm Wed Mar 20 16:48:52 2002
+++ Encode-0.93/TW/TW.pm Wed Mar 20 16:53:44 2002
@@ -5,6 +5,9 @@
use XSLoader;
XSLoader::load('Encode::TW',$VERSION);
+Encode::define_alias( qr/big-?5$/i => '"big5"' );
+Encode::define_alias( qr/big5-hk(?:scs)?/i => '"big5-hkscs"' );
+
1;
__END__
=head1 NAME
@@ -13,7 +16,7 @@
=head1 SYNOPSIS
- use Encode 'encode';
+ use Encode qw/encode decode/;
$big5 = encode("big5", $utf8); # loads Encode::TW implicitly
$utf8 = decode("big5", $big5); # ditto
@@ -22,9 +25,11 @@
This module implements Taiwan-based Chinese charset encodings.
Encodings supported are as follows.
- big5 The original Big5 encoding
- big5-hkscs Big5 plus Cantonese characters in Hong Kong
- cp950 Code Page 950 (Big5 + Microsoft vendor mappings)
+ Canonical Alias Description
+ --------------------------------------------------------------------
+ big5 /big-?5$/i The original Big5 encoding
+ big5-hkscs /big5-hk(scs)?$/i Big5 plus Cantonese characters in Hong
Kong
+ cp950 Code Page 950 (Big5 + Microsoft vendor mappings)
To find how to use this module in detail, see L<Encode>.
diff -ur Encode-0.93.old/t/CJKalias.t Encode-0.93/t/CJKalias.t
--- Encode-0.93.old/t/CJKalias.t Wed Mar 20 16:48:52 2002
+++ Encode-0.93/t/CJKalias.t Wed Mar 20 16:49:55 2002
@@ -1,5 +1,5 @@
use strict;
-#use Test::More tests => 27;
+#use Test::More tests => 29;
use Test::More qw(no_plan);
use Encode::CN;
use Encode::JP;
@@ -19,6 +19,8 @@
Shift_JIS shiftjis
x-sjis shiftjis
jis 7bit-jis
+ big-5 big5
+ big5-hk big5-hkscs
);
foreach my $a (keys %a2c){
