ext\ExtUtils\t\Embed.t fails test when upgrading a perl with different core headers.

[p5sagit/p5-mst-13.2.git] / ext / Encode / TW / TW.pm

diff --git a/ext/Encode/TW/TW.pm b/ext/Encode/TW/TW.pm
index fb9239b..ffaa844 100644 (file)
--- 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: 1.25 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
-
+use strict;
+use warnings;
 use Encode;
+our $VERSION = do { my @r = ( q$Revision: 2.2 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
 use XSLoader;
-XSLoader::load(__PACKAGE__,$VERSION);
+XSLoader::load( __PACKAGE__, $VERSION );
 
 1;
 __END__
@@ -32,8 +33,10 @@ Encodings supported are as follows.
   Canonical   Alias            Description
   --------------------------------------------------------------------
   big5-eten   /\bbig-?5$/i     Big5 encoding (with ETen extensions)
-             /\bbig5-?et(en)?$/i
+          /\bbig5-?et(en)?$/i
+          /\btca-?big5$/i
   big5-hkscs  /\bbig5-?hk(scs)?$/i
+              /\bhk(scs)?-?big5$/i
                                 Big5 + Cantonese characters in Hong Kong
   MacChineseTrad               Big5 + Apple Vendor Mappings
   cp950                                Code Page 950