A FIX. [Re: qr/^UCS2-le$/i => '"UCS-2"' -- what is it?]
authorDan Kogai <dankogai@dan.co.jp>
Fri, 5 Apr 2002 11:39:55 +0000 (20:39 +0900)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 5 Apr 2002 01:45:24 +0000 (01:45 +0000)
Message-Id: <69FEC0B4-483E-11D6-A045-00039301D480@dan.co.jp>

p4raw-id: //depot/perl@15738

ext/Encode/lib/Encode/Alias.pm

index f49653c..6cc6df1 100644 (file)
@@ -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"',