From: Jarkko Hietaniemi Date: Wed, 20 Mar 2002 15:28:44 +0000 (+0000) Subject: Upgrade to Encode 0.93, from Dan Kogai. X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fab3112653a2db17ab3e4f90b4dface46c447f73;p=p5sagit%2Fp5-mst-13.2.git Upgrade to Encode 0.93, from Dan Kogai. p4raw-id: //depot/perl@15371 --- diff --git a/MANIFEST b/MANIFEST index c61fcaf..8f39306 100644 --- a/MANIFEST +++ b/MANIFEST @@ -196,6 +196,8 @@ ext/DynaLoader/hints/openbsd.pl Hint for DynaLoader for named architecture ext/DynaLoader/Makefile.PL Dynamic Loader makefile writer ext/DynaLoader/README Dynamic Loader notes and intro ext/DynaLoader/XSLoader_pm.PL Simple XS Loader perl module +ext/Encode/AUTHORS Encode extension +ext/Encode/Changes Encode extension ext/Encode/CN/CN.pm Encode extension ext/Encode/CN/Makefile.PL Encode extension ext/Encode/compile Encode extension @@ -356,6 +358,7 @@ ext/Encode/lib/EncodeFormat.pod Encode extension ext/Encode/Makefile.PL Encode extension makefile writer ext/Encode/MANIFEST Encode extension ext/Encode/README Encode extension +ext/Encode/t/CJKalias.t Encode extension ext/Encode/t/CN.t Encode extension test ext/Encode/t/Encode.t Encode extension test ext/Encode/t/jisx0208.euc Encode extension test diff --git a/ext/Encode/AUTHORS b/ext/Encode/AUTHORS new file mode 100644 index 0000000..5f9869e --- /dev/null +++ b/ext/Encode/AUTHORS @@ -0,0 +1,15 @@ +# To give due honor to those who have made Encode module what is is today, +# here are easily-from-changelogs-extractable people and their +# (hopefully) current and preferred email addresses (as of early 2001, +# if known). +# +# The use of this database for anything else than Encode and/or Perl +# development is strictly forbidden. (Passive distribution with the Perl +# source code kit is naturally allowed.) +# +# This list is in alphabetical order. +-- +Autrijus Tang +Dan Kogai +Jarkko Hietaniemi +Nick Ing-Simmons diff --git a/ext/Encode/CN/CN.pm b/ext/Encode/CN/CN.pm index bca6fa3..198eeb5 100644 --- a/ext/Encode/CN/CN.pm +++ b/ext/Encode/CN/CN.pm @@ -1,11 +1,14 @@ package Encode::CN; -our $VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +our $VERSION = do { my @r = (q$Revision: 0.93 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; use Encode; use Encode::CN::HZ; use XSLoader; XSLoader::load('Encode::CN',$VERSION); +Encode::define_alias( qr/euc.*cn$/i => '"euc-cn"' ); +Encode::define_alias( qr/cn.*euc/i => '"euc-cn"' ); + 1; __END__ =head1 NAME @@ -23,12 +26,17 @@ Encode::CN - China-based Chinese Encodings This module implements China-based Chinese charset encodings. Encodings supported are as follows. - euc-cn EUC (Extended Unix Character) - gb2312 The raw (low-bit) GB2312 character map - gb12345 Traditional chinese counterpart to GB2312 (raw) - iso-ir-165 GB2312 + GB6345 + GB8565 + additions - cp936 Code Page 936, also known as GBK (Extended GuoBiao) - hz 7-bit escaped GB2312 encoding + Canonical Alias Description + -------------------------------------------------------------------- + euc-cn /euc.*cn$/i EUC (Extended Unix Character) + /cn.*euc$/i + gb2312 The raw (low-bit) GB2312 character map + gb12345 Traditional chinese counterpart to + GB2312 (raw) + iso-ir-165 GB2312 + GB6345 + GB8565 + additions + cp936 Code Page 936, also known as GBK + (Extended GuoBiao) + hz 7-bit escaped GB2312 encoding To find how to use this module in detail, see L. diff --git a/ext/Encode/Changes b/ext/Encode/Changes new file mode 100644 index 0000000..48c6aa3 --- /dev/null +++ b/ext/Encode/Changes @@ -0,0 +1,28 @@ +# Revision history for Perl extension Encode. +# +# $Id$ +# + +0.93 Wed Mar 20 2002 +* First release to be uploaded to CPAN. For prehistoric changes, + please see Changes file of perl distibution as well as + perl-unicode@perl.org archive, available at: + http://archive.develooper.com/perl-unicode@perl.org/ + + Changes Since 0.92 includes; ++ Changes ++ AUTHORS +! Encode.pm +! README + + Mention to perl-unicode@perl.org added +! JP/JP.pm + + Encoding aliases added so you can feed locale names + and MIME Charset="" directly. + - Mention to JISX0212 removed because it's fixed +! CN/CN.pm +! KR/KR.pm + + 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. ++ t/CJKalias.t + + to test encode aliases added diff --git a/ext/Encode/Encode.pm b/ext/Encode/Encode.pm index 681b17d..92dd1db 100644 --- a/ext/Encode/Encode.pm +++ b/ext/Encode/Encode.pm @@ -1,6 +1,6 @@ package Encode; use strict; -our $VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +our $VERSION = do { my @r = (q$Revision: 0.93 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; require DynaLoader; require Exporter; @@ -1086,7 +1086,7 @@ to be rationalized. =head1 SEE ALSO L, L, L, L, L, -L +L, the Perl Unicode Mailing List Eperl-unicode@perl.orgE =cut diff --git a/ext/Encode/JP/JP.pm b/ext/Encode/JP/JP.pm index fc4e6fd..e60b912 100644 --- a/ext/Encode/JP/JP.pm +++ b/ext/Encode/JP/JP.pm @@ -5,7 +5,7 @@ BEGIN { } } use Encode; -our $VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +our $VERSION = do { my @r = (q$Revision: 0.93 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; use XSLoader; XSLoader::load('Encode::JP',$VERSION); @@ -13,6 +13,13 @@ XSLoader::load('Encode::JP',$VERSION); use Encode::JP::JIS; use Encode::JP::ISO_2022_JP; +Encode::define_alias( qr/euc.*jp$/i => '"euc-jp"' ); +Encode::define_alias( qr/jp.*euc/i => '"euc-jp"' ); +Encode::define_alias( qr/ujis$/i => '"euc-jp"' ); +Encode::define_alias( qr/shift.*jis$/i => '"shiftjis"' ); +Encode::define_alias( qr/sjis$/i => '"shiftjis"' ); +Encode::define_alias( qr/^jis$/i => '"7bit-jis"' ); + 1; __END__ =head1 NAME @@ -30,12 +37,19 @@ Encode::JP - Japanese Encodings This module implements Japanese charset encodings. Encodings supported are as follows. - euc-jp EUC (Extended Unix Character) - shiftjis Shift JIS (aka MS Kanji) - 7bit-jis 7bit JIS - iso-2022-jp ISO-2022-JP (7bit JIS with all X201 converted to X208) - macjapan Mac Japan (Shift JIS + Apple vendor mappings) - cp932 Code Page 932 (Shift JIS + Microsoft vendor mappings) + Canonical Alias Description + -------------------------------------------------------------------- + euc-jp /euc.*jp$/i EUC (Extended Unix Character) + /jp.*euc/i + /ujis$/i + shiftjis /shift.*jis$/i Shift JIS (aka MS Kanji) + /sjis$/i + 7bit-jis /^jis$/i 7bit JIS + iso-2022-jp ISO-2022-JP + (7bit JIS with all Halfwidth Kana + converted to Fullwidth) + macjapan Mac Japan (Shift JIS + Apple vendor mappings) + cp932 Code Page 932 (Shift JIS + Microsoft vendor mappings) =head1 DESCRIPTION @@ -43,9 +57,6 @@ To find how to use this module in detail, see L. =head1 BUGS -JISX0212-1990 -> utf8 conversion does not work -(the reverse does, however. encengine|compile bug?) - ASCII part (0x00-0x7f) is preserved for all encodings, even though it conflicts with mappings by the Unicode Consortium. See diff --git a/ext/Encode/KR/KR.pm b/ext/Encode/KR/KR.pm index 55e2f1e..0823fa9 100644 --- a/ext/Encode/KR/KR.pm +++ b/ext/Encode/KR/KR.pm @@ -1,10 +1,13 @@ package Encode::KR; -our $VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +our $VERSION = do { my @r = (q$Revision: 0.93 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; use Encode; use XSLoader; XSLoader::load('Encode::KR',$VERSION); +Encode::define_alias( qr/euc.*kr$/i => '"euc-kr"' ); +Encode::define_alias( qr/kr.*euc/i => '"euc-kr"' ); + 1; __END__ =head1 NAME @@ -22,9 +25,14 @@ Encode::KR - Korean Encodings This module implements Korean charset encodings. Encodings supported are as follows. - euc-kr EUC (Extended Unix Character) - ksc5601 Korean standard code set - cp949 Code Page 949 (EUC-KR + Unified Hangul Code) + + Canonical Alias Description + -------------------------------------------------------------------- + euc-kr /euc.*kr$/i EUC (Extended Unix Character) + /kr.*euc/i + ksc5601 Korean standard code set + cp949 Code Page 949 + (EUC-KR + Unified Hangul Code) To find how to use this module in detail, see L. diff --git a/ext/Encode/MANIFEST b/ext/Encode/MANIFEST index 8e9a18b..ec9fc4d 100644 --- a/ext/Encode/MANIFEST +++ b/ext/Encode/MANIFEST @@ -1,171 +1,174 @@ -CN/CN.pm -CN/Makefile.PL -Encode.pm -Encode.xs -Encode/11643-1.enc -Encode/11643-2.enc -Encode/2022-cn.enc -Encode/2022-jp.enc -Encode/2022-jp1.enc -Encode/2022-jp2.enc -Encode/2022-kr.enc -Encode/2022.enc -Encode/7bit-greek.enc -Encode/7bit-jis.enc -Encode/7bit-kana.enc -Encode/7bit-latin1.enc -Encode/8859-1.enc -Encode/8859-1.ucm -Encode/8859-10.enc -Encode/8859-10.ucm -Encode/8859-11.enc -Encode/8859-11.ucm -Encode/8859-13.enc -Encode/8859-13.ucm -Encode/8859-14.enc -Encode/8859-14.ucm -Encode/8859-15.enc -Encode/8859-15.ucm -Encode/8859-16.enc -Encode/8859-16.ucm -Encode/8859-2.enc -Encode/8859-2.ucm -Encode/8859-3.enc -Encode/8859-3.ucm -Encode/8859-4.enc -Encode/8859-4.ucm -Encode/8859-5.enc -Encode/8859-5.ucm -Encode/8859-6.enc -Encode/8859-6.ucm -Encode/8859-7.enc -Encode/8859-7.ucm -Encode/8859-8.enc -Encode/8859-8.ucm -Encode/8859-9.enc -Encode/8859-9.ucm -Encode/ascii.enc -Encode/ascii.ucm -Encode/big5-hkscs.enc -Encode/big5.enc -Encode/cp1006.enc -Encode/cp1047.enc -Encode/cp1047.ucm -Encode/cp1250.enc -Encode/cp1250.ucm -Encode/cp1251.enc -Encode/cp1252.enc -Encode/cp1253.enc -Encode/cp1254.enc -Encode/cp1255.enc -Encode/cp1256.enc -Encode/cp1257.enc -Encode/cp1258.enc -Encode/cp37.enc -Encode/cp37.ucm -Encode/cp424.enc -Encode/cp437.enc -Encode/cp737.enc -Encode/cp775.enc -Encode/cp850.enc -Encode/cp852.enc -Encode/cp855.enc -Encode/cp856.enc -Encode/cp857.enc -Encode/cp860.enc -Encode/cp861.enc -Encode/cp862.enc -Encode/cp863.enc -Encode/cp864.enc -Encode/cp865.enc -Encode/cp866.enc -Encode/cp869.enc -Encode/cp874.enc -Encode/cp932.enc -Encode/cp936.enc -Encode/cp949.enc -Encode/cp950.enc -Encode/dingbats.enc -Encode/dingbats.ucm -Encode/euc-cn.enc -Encode/euc-jp.enc -Encode/euc-jp.ucm -Encode/euc-kr.enc -Encode/gb12345.enc -Encode/gb1988.enc -Encode/gb2312.enc -Encode/gsm0338.enc -Encode/ir-197.enc -Encode/iso-ir-165.enc -Encode/jis0201.enc -Encode/jis0201.ucm -Encode/jis0208.enc -Encode/jis0212.enc -Encode/koi8-f.enc -Encode/koi8-f.ucm -Encode/koi8-r.enc -Encode/koi8-r.ucm -Encode/koi8-u.enc -Encode/koi8-u.ucm -Encode/ksc5601.enc -Encode/macCentEuro.enc -Encode/macCroatian.enc -Encode/macCyrillic.enc -Encode/macDingbats.enc -Encode/macGreek.enc -Encode/macIceland.enc -Encode/macJapan.enc -Encode/macRoman.enc -Encode/macRumanian.enc -Encode/macSami.enc -Encode/macThai.enc -Encode/macTurkish.enc -Encode/macUkraine.enc -Encode/nextstep.enc -Encode/nextstep.ucm -Encode/posix-bc.enc -Encode/posix-bc.ucm -Encode/roman8.enc -Encode/roman8.ucm -Encode/shiftjis.enc -Encode/symbol.enc -Encode/symbol.ucm -Encode/viscii.enc -Encode/viscii.ucm -JP/JP.pm -JP/Makefile.PL -KR/KR.pm -KR/Makefile.PL -MANIFEST -Makefile.PL -README -TW/Makefile.PL -TW/TW.pm -compile -encengine.c -encode.h -lib/Encode/CN/HZ.pm -lib/Encode/Encoding.pm -lib/Encode/Internal.pm -lib/Encode/JP/Constants.pm -lib/Encode/JP/H2Z.pm -lib/Encode/JP/ISO_2022_JP.pm -lib/Encode/JP/JIS.pm -lib/Encode/Tcl.pm -lib/Encode/Tcl/Escape.pm -lib/Encode/Tcl/Table.pm -lib/Encode/Unicode.pm -lib/Encode/XS.pm -lib/Encode/iso10646_1.pm -lib/Encode/ucs2_le.pm -lib/Encode/utf8.pm -lib/EncodeFormat.pod -t/CN.t -t/Encode.t -t/JP.t -t/TW.t -t/Tcl.t -t/jisx0208.euc -t/jisx0208.ref -t/jisx0212.euc -t/jisx0212.ref +AUTHORS List of authors +CN/CN.pm Encode extension +CN/Makefile.PL Encode extension +Changes Change Log +Encode.pm Encode extension +Encode.xs Encode extension +Encode/11643-1.enc Encode table +Encode/11643-2.enc Encode table +Encode/2022-cn.enc Encode table +Encode/2022-jp.enc Encode table +Encode/2022-jp1.enc Encode table +Encode/2022-jp2.enc Encode table +Encode/2022-kr.enc Encode table +Encode/2022.enc Encode table +Encode/7bit-greek.enc Encode table +Encode/7bit-jis.enc Encode table +Encode/7bit-kana.enc Encode table +Encode/7bit-latin1.enc Encode table +Encode/8859-1.enc Encode table +Encode/8859-1.ucm Encode table +Encode/8859-10.enc Encode table +Encode/8859-10.ucm Encode table +Encode/8859-11.enc Encode table +Encode/8859-11.ucm Encode table +Encode/8859-13.enc Encode table +Encode/8859-13.ucm Encode table +Encode/8859-14.enc Encode table +Encode/8859-14.ucm Encode table +Encode/8859-15.enc Encode table +Encode/8859-15.ucm Encode table +Encode/8859-16.enc Encode table +Encode/8859-16.ucm Encode table +Encode/8859-2.enc Encode table +Encode/8859-2.ucm Encode table +Encode/8859-3.enc Encode table +Encode/8859-3.ucm Encode table +Encode/8859-4.enc Encode table +Encode/8859-4.ucm Encode table +Encode/8859-5.enc Encode table +Encode/8859-5.ucm Encode table +Encode/8859-6.enc Encode table +Encode/8859-6.ucm Encode table +Encode/8859-7.enc Encode table +Encode/8859-7.ucm Encode table +Encode/8859-8.enc Encode table +Encode/8859-8.ucm Encode table +Encode/8859-9.enc Encode table +Encode/8859-9.ucm Encode table +Encode/ascii.enc Encode table +Encode/ascii.ucm Encode table +Encode/big5-hkscs.enc Encode table +Encode/big5.enc Encode table +Encode/cp1006.enc Encode table +Encode/cp1047.enc Encode table +Encode/cp1047.ucm Encode table +Encode/cp1250.enc Encode table +Encode/cp1250.ucm Encode table +Encode/cp1251.enc Encode table +Encode/cp1252.enc Encode table +Encode/cp1253.enc Encode table +Encode/cp1254.enc Encode table +Encode/cp1255.enc Encode table +Encode/cp1256.enc Encode table +Encode/cp1257.enc Encode table +Encode/cp1258.enc Encode table +Encode/cp37.enc Encode table +Encode/cp37.ucm Encode table +Encode/cp424.enc Encode table +Encode/cp437.enc Encode table +Encode/cp737.enc Encode table +Encode/cp775.enc Encode table +Encode/cp850.enc Encode table +Encode/cp852.enc Encode table +Encode/cp855.enc Encode table +Encode/cp856.enc Encode table +Encode/cp857.enc Encode table +Encode/cp860.enc Encode table +Encode/cp861.enc Encode table +Encode/cp862.enc Encode table +Encode/cp863.enc Encode table +Encode/cp864.enc Encode table +Encode/cp865.enc Encode table +Encode/cp866.enc Encode table +Encode/cp869.enc Encode table +Encode/cp874.enc Encode table +Encode/cp932.enc Encode table +Encode/cp936.enc Encode table +Encode/cp949.enc Encode table +Encode/cp950.enc Encode table +Encode/dingbats.enc Encode table +Encode/dingbats.ucm Encode table +Encode/euc-cn.enc Encode table +Encode/euc-jp.enc Encode table +Encode/euc-jp.ucm Encode table +Encode/euc-kr.enc Encode table +Encode/gb12345.enc Encode table +Encode/gb1988.enc Encode table +Encode/gb2312.enc Encode table +Encode/gsm0338.enc Encode table +Encode/ir-197.enc Encode table +Encode/iso-ir-165.enc Encode table +Encode/jis0201.enc Encode table +Encode/jis0201.ucm Encode table +Encode/jis0208.enc Encode table +Encode/jis0212.enc Encode table +Encode/koi8-f.enc Encode table +Encode/koi8-f.ucm Encode table +Encode/koi8-r.enc Encode table +Encode/koi8-r.ucm Encode table +Encode/koi8-u.enc Encode table +Encode/koi8-u.ucm Encode table +Encode/ksc5601.enc Encode table +Encode/macCentEuro.enc Encode table +Encode/macCroatian.enc Encode table +Encode/macCyrillic.enc Encode table +Encode/macDingbats.enc Encode table +Encode/macGreek.enc Encode table +Encode/macIceland.enc Encode table +Encode/macJapan.enc Encode table +Encode/macRoman.enc Encode table +Encode/macRumanian.enc Encode table +Encode/macSami.enc Encode table +Encode/macThai.enc Encode table +Encode/macTurkish.enc Encode table +Encode/macUkraine.enc Encode table +Encode/nextstep.enc Encode table +Encode/nextstep.ucm Encode table +Encode/posix-bc.enc Encode table +Encode/posix-bc.ucm Encode table +Encode/roman8.enc Encode table +Encode/roman8.ucm Encode table +Encode/shiftjis.enc Encode table +Encode/symbol.enc Encode table +Encode/symbol.ucm Encode table +Encode/viscii.enc Encode table +Encode/viscii.ucm Encode table +JP/JP.pm Encode extension +JP/Makefile.PL Encode extension +KR/KR.pm Encode extension +KR/Makefile.PL Encode extension +MANIFEST Encode extension +Makefile.PL Encode extension makefile writer +README Encode extension +TW/Makefile.PL Encode extension +TW/TW.pm Encode extension +compile Encode extension +encengine.c Encode extension +encode.h Encode extension +lib/Encode/CN/HZ.pm Encode extension +lib/Encode/Encoding.pm Encode extension +lib/Encode/Internal.pm Encode extension +lib/Encode/JP/Constants.pm Encode extension +lib/Encode/JP/H2Z.pm Encode extension +lib/Encode/JP/ISO_2022_JP.pm Encode extension +lib/Encode/JP/JIS.pm Encode extension +lib/Encode/Tcl.pm Encode extension +lib/Encode/Tcl/Escape.pm Encode extension +lib/Encode/Tcl/Table.pm Encode extension +lib/Encode/Unicode.pm Encode extension +lib/Encode/XS.pm Encode extension +lib/Encode/iso10646_1.pm Encode extension +lib/Encode/ucs2_le.pm Encode extension +lib/Encode/utf8.pm Encode extension +lib/EncodeFormat.pod Encode extension +t/CJKalias.t Encode extension test +t/CN.t Encode extension test +t/Encode.t Encode extension test +t/JP.t Encode extension test +t/TW.t Encode extension test +t/Tcl.t Encode extension test +t/jisx0208.euc Encode extension test +t/jisx0208.ref Encode extension test +t/jisx0212.euc Encode extension test +t/jisx0212.ref Encode extension test diff --git a/ext/Encode/README b/ext/Encode/README index 6e8384f..9f923fb 100644 --- a/ext/Encode/README +++ b/ext/Encode/README @@ -24,3 +24,7 @@ DEPENDENCIES This module requires perl5.7.2 or later. +QUESTIONS? + +If you have any questions "perldoc Encode" does not answer, please +feel free to ask at perl-unicode@perl.org. diff --git a/ext/Encode/TW/TW.pm b/ext/Encode/TW/TW.pm index 70c7897..61b8271 100644 --- a/ext/Encode/TW/TW.pm +++ b/ext/Encode/TW/TW.pm @@ -1,5 +1,5 @@ package Encode::TW; -our $VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +our $VERSION = do { my @r = (q$Revision: 0.92 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; use Encode; use XSLoader; diff --git a/ext/Encode/lib/Encode/CN/HZ.pm b/ext/Encode/lib/Encode/CN/HZ.pm index aad9274..6e382ff 100644 --- a/ext/Encode/lib/Encode/CN/HZ.pm +++ b/ext/Encode/lib/Encode/CN/HZ.pm @@ -4,7 +4,7 @@ use strict; no warnings 'redefine'; # to quell the "use Encode" below use vars qw($VERSION); -$VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +$VERSION = do { my @r = (q$Revision: 0.92 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; use Encode::CN; use Encode qw|encode decode|; diff --git a/ext/Encode/lib/Encode/Encoding.pm b/ext/Encode/lib/Encode/Encoding.pm index 249b7fa..e03e22d 100644 --- a/ext/Encode/lib/Encode/Encoding.pm +++ b/ext/Encode/lib/Encode/Encoding.pm @@ -1,7 +1,7 @@ package Encode::Encoding; # Base class for classes which implement encodings use strict; -our $VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +our $VERSION = do { my @r = (q$Revision: 0.92 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; sub Define { diff --git a/ext/Encode/lib/Encode/Internal.pm b/ext/Encode/lib/Encode/Internal.pm index e106703..b510d42 100644 --- a/ext/Encode/lib/Encode/Internal.pm +++ b/ext/Encode/lib/Encode/Internal.pm @@ -1,6 +1,6 @@ package Encode::Internal; use strict; -our $VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +our $VERSION = do { my @r = (q$Revision: 0.92 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; use base 'Encode::Encoding'; diff --git a/ext/Encode/lib/Encode/JP/Constants.pm b/ext/Encode/lib/Encode/JP/Constants.pm index c8cc908..3ffba8a 100644 --- a/ext/Encode/lib/Encode/JP/Constants.pm +++ b/ext/Encode/lib/Encode/JP/Constants.pm @@ -1,5 +1,5 @@ # -# $Id: Constants.pm,v 0.90 2002/03/19 13:14:18 dankogai Exp dankogai $ +# $Id: Constants.pm,v 0.92 2002/03/19 17:01:26 dankogai Exp $ # package Encode::JP::Constants; @@ -7,8 +7,8 @@ package Encode::JP::Constants; use strict; use vars qw($RCSID $VERSION); -$RCSID = q$Id: Constants.pm,v 0.90 2002/03/19 13:14:18 dankogai Exp dankogai $; -$VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +$RCSID = q$Id: Constants.pm,v 0.92 2002/03/19 17:01:26 dankogai Exp $; +$VERSION = do { my @r = (q$Revision: 0.92 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; use Carp; diff --git a/ext/Encode/lib/Encode/JP/H2Z.pm b/ext/Encode/lib/Encode/JP/H2Z.pm index dad22b1..dbfac50 100644 --- a/ext/Encode/lib/Encode/JP/H2Z.pm +++ b/ext/Encode/lib/Encode/JP/H2Z.pm @@ -1,5 +1,5 @@ # -# $Id: H2Z.pm,v 0.90 2002/03/19 13:14:18 dankogai Exp dankogai $ +# $Id: H2Z.pm,v 0.92 2002/03/19 17:01:26 dankogai Exp $ # package Encode::JP::H2Z; @@ -7,8 +7,8 @@ package Encode::JP::H2Z; use strict; use vars qw($RCSID $VERSION); -$RCSID = q$Id: H2Z.pm,v 0.90 2002/03/19 13:14:18 dankogai Exp dankogai $; -$VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +$RCSID = q$Id: H2Z.pm,v 0.92 2002/03/19 17:01:26 dankogai Exp $; +$VERSION = do { my @r = (q$Revision: 0.92 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; use Carp; diff --git a/ext/Encode/lib/Encode/JP/ISO_2022_JP.pm b/ext/Encode/lib/Encode/JP/ISO_2022_JP.pm index 9439296..30b06b8 100644 --- a/ext/Encode/lib/Encode/JP/ISO_2022_JP.pm +++ b/ext/Encode/lib/Encode/JP/ISO_2022_JP.pm @@ -5,7 +5,7 @@ use Encode::JP::H2Z; use base 'Encode::Encoding'; use vars qw($VERSION); -$VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +$VERSION = do { my @r = (q$Revision: 0.92 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; my $canon = 'iso-2022-jp'; my $obj = bless {name => $canon}, __PACKAGE__; diff --git a/ext/Encode/lib/Encode/JP/JIS.pm b/ext/Encode/lib/Encode/JP/JIS.pm index fab3460..005ca52 100644 --- a/ext/Encode/lib/Encode/JP/JIS.pm +++ b/ext/Encode/lib/Encode/JP/JIS.pm @@ -5,7 +5,7 @@ use base 'Encode::Encoding'; use strict; use vars qw($VERSION); -$VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +$VERSION = do { my @r = (q$Revision: 0.92 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; # Just for the time being, we implement jis-7bit # encoding via EUC diff --git a/ext/Encode/lib/Encode/Tcl.pm b/ext/Encode/lib/Encode/Tcl.pm index 6f7e4b9..0662e3e 100644 --- a/ext/Encode/lib/Encode/Tcl.pm +++ b/ext/Encode/lib/Encode/Tcl.pm @@ -5,7 +5,7 @@ BEGIN { } } use strict; -our $VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +our $VERSION = do { my @r = (q$Revision: 0.92 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; use Encode qw(find_encoding); use base 'Encode::Encoding'; @@ -125,6 +125,7 @@ sub INC_find require Encode::Tcl::Table; require Encode::Tcl::Escape; +require Encode::Tcl::Extended; 1; __END__ diff --git a/ext/Encode/lib/Encode/Tcl/Escape.pm b/ext/Encode/lib/Encode/Tcl/Escape.pm index 1571b8c..89290fb 100644 --- a/ext/Encode/lib/Encode/Tcl/Escape.pm +++ b/ext/Encode/lib/Encode/Tcl/Escape.pm @@ -1,6 +1,6 @@ package Encode::Tcl::Escape; use strict; -our $VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +our $VERSION = do { my @r = (q$Revision: 0.92 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; use base 'Encode::Encoding'; diff --git a/ext/Encode/lib/Encode/Tcl/Table.pm b/ext/Encode/lib/Encode/Tcl/Table.pm index 26a7a10..948c3b9 100644 --- a/ext/Encode/lib/Encode/Tcl/Table.pm +++ b/ext/Encode/lib/Encode/Tcl/Table.pm @@ -1,6 +1,6 @@ package Encode::Tcl::Table; use strict; -our $VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +our $VERSION = do { my @r = (q$Revision: 0.92 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; use base 'Encode::Encoding'; diff --git a/ext/Encode/lib/Encode/Unicode.pm b/ext/Encode/lib/Encode/Unicode.pm index db0c084..919c9f2 100644 --- a/ext/Encode/lib/Encode/Unicode.pm +++ b/ext/Encode/lib/Encode/Unicode.pm @@ -1,6 +1,6 @@ package Encoding::Unicode; use strict; -our $VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +our $VERSION = do { my @r = (q$Revision: 0.92 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; use base 'Encode::Encoding'; diff --git a/ext/Encode/lib/Encode/XS.pm b/ext/Encode/lib/Encode/XS.pm index bee3c3e..9522828 100644 --- a/ext/Encode/lib/Encode/XS.pm +++ b/ext/Encode/lib/Encode/XS.pm @@ -1,6 +1,6 @@ package Encode::XS; use strict; -our $VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +our $VERSION = do { my @r = (q$Revision: 0.92 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; use base 'Encode::Encoding'; 1; diff --git a/ext/Encode/lib/Encode/iso10646_1.pm b/ext/Encode/lib/Encode/iso10646_1.pm index 0ce8f63..0cc71d3 100644 --- a/ext/Encode/lib/Encode/iso10646_1.pm +++ b/ext/Encode/lib/Encode/iso10646_1.pm @@ -1,6 +1,6 @@ package Encode::iso10646_1; use strict; -our $VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +our $VERSION = do { my @r = (q$Revision: 0.92 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; use base 'Encode::Encoding'; # Encoding is 16-bit network order Unicode (no surogates) diff --git a/ext/Encode/lib/Encode/ucs2_le.pm b/ext/Encode/lib/Encode/ucs2_le.pm index bd0cb1d..ef25a8f 100644 --- a/ext/Encode/lib/Encode/ucs2_le.pm +++ b/ext/Encode/lib/Encode/ucs2_le.pm @@ -1,6 +1,6 @@ package Encode::ucs_2le; use strict; -our $VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +our $VERSION = do { my @r = (q$Revision: 0.92 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; use base 'Encode::Encoding'; diff --git a/ext/Encode/lib/Encode/utf8.pm b/ext/Encode/lib/Encode/utf8.pm index 60580f7..3743d30 100644 --- a/ext/Encode/lib/Encode/utf8.pm +++ b/ext/Encode/lib/Encode/utf8.pm @@ -1,6 +1,6 @@ package Encode::utf8; use strict; -our $VERSION = do { my @r = (q$Revision: 0.90 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +our $VERSION = do { my @r = (q$Revision: 0.92 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; use base 'Encode::Encoding'; # package to allow long-hand diff --git a/ext/Encode/t/CJKalias.t b/ext/Encode/t/CJKalias.t new file mode 100644 index 0000000..be4dd5e --- /dev/null +++ b/ext/Encode/t/CJKalias.t @@ -0,0 +1,29 @@ +use strict; +#use Test::More tests => 27; +use Test::More qw(no_plan); +use Encode::CN; +use Encode::JP; +use Encode::KR; +use Encode::TW; + +print "# alias test\n"; + +my %a2c = qw( + ja_JP.euc euc-jp + x-euc-jp euc-jp + zh_CN.euc euc-cn + x-euc-cn euc-cn + ko_KR.euc euc-kr + x-euc-kr euc-kr + ujis euc-jp + Shift_JIS shiftjis + x-sjis shiftjis + jis 7bit-jis + ); + +foreach my $a (keys %a2c){ + my $e = Encode::find_encoding($a); + my $n = $e->name || $e->{name}; + is($n, $a2c{$a}); +} + diff --git a/ext/Encode/t/JP.t b/ext/Encode/t/JP.t index 7b4bf14..733aeb9 100644 --- a/ext/Encode/t/JP.t +++ b/ext/Encode/t/JP.t @@ -18,6 +18,7 @@ BEGIN { } use strict; use Test::More tests => 27; +#use Test::More qw(no_plan); use Encode; use File::Basename; use File::Spec; @@ -88,6 +89,7 @@ while (<$src>) } close($dst); close($src); + TODO: { local $TODO = 'needs debugging on VMS' if $^O eq 'VMS'; @@ -117,6 +119,7 @@ SKIP: } is($enc->name,'euc-jp'); + END { 1 while unlink($utf,$rnd); }