From: Dan Kogai <dankogai@dan.co.jp>
Date: Fri, 5 Apr 2002 11:39:55 +0000 (+0900)
Subject: A FIX. [Re: qr/^UCS2-le$/i    => '"UCS-2"'  -- what is it?]
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c413268da0e9b2683548702cc5c9d5739def909d;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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"',