Changeset 30911

Timestamp:

03/07/09 16:47:30 (4 years ago)

Author:

dankogai

Message:

VERSION 2.32

Location:

lang/perl/Encode/trunk

Files:

• Changes (modified) (1 diff)
• Encode.pm (modified) (1 diff)
• lib/Encode/Alias.pm (modified) (2 diffs)
• t/Aliases.t (modified) (1 diff)

lang/perl/Encode/trunk/Changes

@@ -1 +1 @@
 # Revision history for Perl extension Encode.
 #
-# $Id: Changes,v 2.31 2009/02/16 06:18:09 dankogai Exp dankogai $
+# $Id: Changes,v 2.32 2009/03/07 07:32:37 dankogai Exp dankogai $
 #
-$Revision: 2.31 $ $Date: 2009/02/16 06:18:09 $
+$Revision: 2.32 $ $Date: 2009/03/07 07:32:37 $
+! lib/Encode/Alias.pm t/Alias.t
+  Encode now resolves 'en_US.UTF-8' to utf-8-strict like 'ja_JP.euc'
+  Those who set locale on their shells should be happier now.
 ! AUTHORS
   added tokuhirom

lang/perl/Encode/trunk/Encode.pm

@@ -1 +1 @@
 #
-# $Id: Encode.pm,v 2.31 2009/02/16 06:13:11 dankogai Exp $
+# $Id: Encode.pm,v 2.32 2009/03/07 07:32:37 dankogai Exp dankogai $
 #
 package Encode;
 use strict;
 use warnings;
-our $VERSION = sprintf "%d.%02d", q$Revision: 2.31 $ =~ /(\d+)/g;
+our $VERSION = sprintf "%d.%02d", q$Revision: 2.32 $ =~ /(\d+)/g;
 sub DEBUG () { 0 }
 use XSLoader ();

lang/perl/Encode/trunk/lib/Encode/Alias.pm

@@ -3 +3 @@
 use warnings;
 no warnings 'redefine';
-our $VERSION = do { my @r = ( q$Revision: 2.11 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
+our $VERSION = do { my @r = ( q$Revision: 2.12 $ =~ /\d+/g ); sprintf "%d." . "%02d" x $#r, @r };
 sub DEBUG () { 0 }
 
@@ -257 +257 @@
 
     # utf8 is blessed :)
-    define_alias( qr/^UTF-8$/i => '"utf-8-strict"' );
+    define_alias( qr/\bUTF-8$/i => '"utf-8-strict"' );
 
     # At last, Map white space and _ to '-'

lang/perl/Encode/trunk/t/Aliases.t

@@ -24 +24 @@
         'ISO-646-US' => 'ascii',
         'UTF-8'    => 'utf-8-strict',
+        'en_US.UTF-8'    => 'utf-8-strict',
         'UCS-2'    => 'UCS-2BE',
         'UCS2'     => 'UCS-2BE',