A FIX. [Re: qr/^UCS2-le$/i => '"UCS-2"' -- what is it?]

Message-Id: <69FEC0B4-483E-11D6-A045-00039301D480@dan.co.jp>

p4raw-id: //depot/perl@15738

diff --git a/ext/Encode/lib/Encode/Alias.pm b/ext/Encode/lib/Encode/Alias.pm
index f49653c..6cc6df1 100644 (file)
--- a/ext/Encode/lib/Encode/Alias.pm
+++ b/ext/Encode/lib/Encode/Alias.pm
@@ -131,7 +131,7 @@ sub init_aliases
     define_alias( qr/^UTF-8$/i => '"utf8"',);
     # Moved from Encode::ucs2_le
     define_alias( qr/^UCS-2LE$/i    => '"UTF-16LE"',
-                 qr/^UCS2-le$/i    => '"UCS-2"', );
+                 qr/^UCS2-LE$/i    => '"UTF-16LE"');
     # Moved from Encode::10464_1
     define_alias( qr/^UTF-16BE$/i    => '"UCS-2"',
                  qr/^UCS2$/i        => '"UCS-2"',