diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-04 19:54:19 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-04 19:54:19 +0000 |
| commit | a999c27c2ea2bb1e0c2a144cb34d484858a577d3 (patch) | |
| tree | 169348636c994f0b1874c6b3a7e70345a1632377 /ext/Encode/TW | |
| parent | 1b5537370f6be9a9a91bf7e8b825c998e6d40a4d (diff) | |
| download | perl-a999c27c2ea2bb1e0c2a144cb34d484858a577d3.tar.gz | |
Upgrade to Encode 1.20, from Dan Kogai.
p4raw-id: //depot/perl@15734
Diffstat (limited to 'ext/Encode/TW')
| -rw-r--r-- | ext/Encode/TW/Makefile.PL | 8 | ||||
| -rw-r--r-- | ext/Encode/TW/TW.pm | 5 |
2 files changed, 8 insertions, 5 deletions
diff --git a/ext/Encode/TW/Makefile.PL b/ext/Encode/TW/Makefile.PL index 2c981b83d4..925fa32905 100644 --- a/ext/Encode/TW/Makefile.PL +++ b/ext/Encode/TW/Makefile.PL @@ -4,6 +4,7 @@ use ExtUtils::MakeMaker; my %tables = (big5_t => ['big5.ucm', 'big5-hkscs.ucm', + 'macChintrad.ucm', 'cp950.ucm'], ); @@ -128,9 +129,10 @@ sub postamble $continuator = ''; } } - $str .= $^O eq 'VMS' # In VMS quote to preserve case - ? qq{\n\t\$(PERL) $enc2xs -"Q" -o \$\@ -f $table.fnm\n\n} - : qq{\n\t\$(PERL) $enc2xs -Q -o \$\@ -f $table.fnm\n\n}; + my $plib = $ENV{PERL_CORE} ? '-I$(PERL_LIB)' : ''; + my $ucopts = ($^O eq 'VMS') ? '-"Q"' : '-Q'; # VMS tweaks + $str .= + qq{\n\t\$(PERL) $plib $enc2xs $ucopts -o \$\@ -f $table.fnm\n\n}; open (FILELIST, ">$table.fnm") || die "Could not open $table.fnm: $!"; foreach my $file (@{$tables{$table}}) diff --git a/ext/Encode/TW/TW.pm b/ext/Encode/TW/TW.pm index 982c32ad21..46a4bfb273 100644 --- a/ext/Encode/TW/TW.pm +++ b/ext/Encode/TW/TW.pm @@ -4,7 +4,7 @@ BEGIN { die "Encode::TW not supported on EBCDIC\n"; } } -our $VERSION = do { my @r = (q$Revision: 1.0 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +our $VERSION = do { my @r = (q$Revision: 1.20 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; use Encode; use XSLoader; @@ -34,8 +34,9 @@ Encodings supported are as follows. big5-hkscs /\bbig5-hk(scs)?$/i Big5 plus Cantonese characters in Hong Kong + MacChineseSimp Big5 + Apple Vendor Mappings cp950 Code Page 950 - (Big5 + Microsoft vendor mappings) + = Big5 + Microsoft vendor mappings -------------------------------------------------------------------- To find how to use this module in detail, see L<Encode>. |