diff options
Diffstat (limited to 'ext/Encode/TW/TW.pm')
| -rw-r--r-- | ext/Encode/TW/TW.pm | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/ext/Encode/TW/TW.pm b/ext/Encode/TW/TW.pm index 2e1abc0c7f..236da3603a 100644 --- a/ext/Encode/TW/TW.pm +++ b/ext/Encode/TW/TW.pm @@ -1,14 +1,15 @@ package Encode::TW; + BEGIN { - if (ord("A") == 193) { - die "Encode::TW not supported on EBCDIC\n"; + if ( ord("A") == 193 ) { + die "Encode::TW not supported on EBCDIC\n"; } } -our $VERSION = do { my @r = (q$Revision: 2.0 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r }; +our $VERSION = do { my @r = ( q$Revision: 2.1 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r }; use Encode; use XSLoader; -XSLoader::load(__PACKAGE__,$VERSION); +XSLoader::load( __PACKAGE__, $VERSION ); 1; __END__ @@ -32,8 +33,8 @@ Encodings supported are as follows. Canonical Alias Description -------------------------------------------------------------------- big5-eten /\bbig-?5$/i Big5 encoding (with ETen extensions) - /\bbig5-?et(en)?$/i - /\btca-?big5$/i + /\bbig5-?et(en)?$/i + /\btca-?big5$/i big5-hkscs /\bbig5-?hk(scs)?$/i /\bhk(scs)?-?big5$/i Big5 + Cantonese characters in Hong Kong |