From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Fri, 5 Apr 2002 13:02:36 +0000 (+0000)
Subject: Not only did UCS-2 have dodgy name it was buggy.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=07bc525fab7db02aeab0c4065ba408c74862a1be;p=p5sagit%2Fp5-mst-13.2.git

Not only did UCS-2 have dodgy name it was buggy.

p4raw-id: //depot/perlio@15744
---

diff --git a/ext/Encode/lib/Encode/10646_1.pm b/ext/Encode/lib/Encode/10646_1.pm
index db39210..e3d3ffa 100644
--- a/ext/Encode/lib/Encode/10646_1.pm
+++ b/ext/Encode/lib/Encode/10646_1.pm
@@ -6,7 +6,7 @@ use base 'Encode::Encoding';
 # Encoding is 16-bit network order Unicode (no surogates)
 # Used for X font encodings
 
-__PACKAGE__->Define(qw(UCS-2));
+__PACKAGE__->Define(qw(UCS-2BE UCS-2));
 
 sub decode
 {
@@ -18,7 +18,7 @@ sub decode
 	$uni .= chr($code);
     }
     $_[1] = $str if $chk;
-  utf8::upgrade($uni);
+    utf8::upgrade($uni);
     return $uni;
 }
 
@@ -30,7 +30,7 @@ sub encode
     {
 	my $ch = substr($uni,0,1,'');
 	my $x  = ord($ch);
-	unless ($x < 32768)
+	unless ($x <= 0xffff)
 	{
 	    last if ($chk);
 	    $x = 0;