perl-unicode

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

2002-04-04 19:54:00
On Fri, Apr 05, 2002 at 11:39:55AM +0900, Dan Kogai wrote:
On Friday, April 5, 2002, at 11:33 , Dan Kogai wrote:
-                 qr/^UCS2-le$/i    => '"UCS-2"', );
+                 qr/^UCS-2LE$/i    => '"UTF-16LE"');
                         ^^^^^^^aaaggh!

Forget the last one.  This one is correct.

Thanks, applied.

Dan-the-Encode-Maintainer

diff -du -r1.20 lib/Encode/Alias.pm
--- lib/Encode/Alias.pm 2002/04/04 19:50:52     1.20
+++ lib/Encode/Alias.pm 2002/04/05 02:36:41
@@ -131,7 +131,7 @@
      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"',
dankogai(_at_)dan-attic[1918]:~/work/Encode>

-- 
$jhi++; # http://www.iki.fi/jhi/
        # There is this special biologist word we use for 'stable'.
        # It is 'dead'. -- Jack Cohen