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
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
--- /dev/null
+# 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 <autrijus@autrijus.org>
+Dan Kogai <dankogai@dan.co.jp>
+Jarkko Hietaniemi <jhi@iki.fi>
+Nick Ing-Simmons <nick@ing-simmons.net>
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
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<Encode>.
--- /dev/null
+# 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
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;
=head1 SEE ALSO
L<perlunicode>, L<perlebcdic>, L<perlfunc/open>, L<PerlIO>, L<encoding>,
-L<utf8>
+L<utf8>, the Perl Unicode Mailing List E<lt>perl-unicode@perl.orgE<gt>
=cut
}
}
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);
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
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
=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
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
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<Encode>.
-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
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.
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;
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|;
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
{
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';
#
-# $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;
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;
#
-# $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;
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;
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__;
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
}
}
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';
require Encode::Tcl::Table;
require Encode::Tcl::Escape;
+require Encode::Tcl::Extended;
1;
__END__
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';
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';
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';
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;
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)
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';
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
--- /dev/null
+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});
+}
+
}
use strict;
use Test::More tests => 27;
+#use Test::More qw(no_plan);
use Encode;
use File::Basename;
use File::Spec;
}
close($dst);
close($src);
+
TODO:
{
local $TODO = 'needs debugging on VMS' if $^O eq 'VMS';
}
is($enc->name,'euc-jp');
+
END {
1 while unlink($utf,$rnd);
}
projects / p5sagit/p5-mst-13.2.git / commitdiff