X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FEncode%2Fencoding.pm;h=eb84e481f1129d0d97ebc72d9de5ac62285035a6;hb=2a5d9b1d41e4bafaa26126c5dea2f6ff0b72b6a7;hp=bf0fc693d7e7e0acb688f5f6d1f5c28959f9f4b9;hpb=d1256cb1bc05a9b21e5ab396a011ea9c02150dd4;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/ext/Encode/encoding.pm b/ext/Encode/encoding.pm
index bf0fc69..eb84e48 100644
--- a/ext/Encode/encoding.pm
+++ b/ext/Encode/encoding.pm
@@ -1,9 +1,10 @@
-# $Id: encoding.pm,v 2.3 2006/05/03 18:24:10 dankogai Exp $
+# $Id: encoding.pm,v 2.4 2006/06/03 20:28:48 dankogai Exp dankogai $
 package encoding;
-our $VERSION = do { my @r = ( q$Revision: 2.3 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+our $VERSION = do { my @r = ( q$Revision: 2.4 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
 
 use Encode;
 use strict;
+use warnings;
 
 sub DEBUG () { 0 }
 
@@ -83,7 +84,7 @@ sub _get_locale_encoding {
         elsif ( $country_language =~ /^ko_KR|korean?$/i ) {
             $locale_encoding = 'euc-kr';
         }
-        elsif ( $country_language =~ /^zh_CN|chin(?:a|ese)?$/i ) {
+        elsif ( $country_language =~ /^zh_CN|chin(?:a|ese)$/i ) {
             $locale_encoding = 'euc-cn';
         }
         elsif ( $country_language =~ /^zh_TW|taiwan(?:ese)?$/i ) {