From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 5 Jan 2002 22:47:59 +0000 (+0000)
Subject: The same problem with To{Lower,Title,Upper}
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=282e7f1e0d4a0c4dde1baf82ed27182d09bae8f9;p=p5sagit%2Fp5-mst-13.2.git

The same problem with To{Lower,Title,Upper}
as earlier with ToFold.

p4raw-id: //depot/perl@14098
---

diff --git a/lib/unicore/To/Lower.pl b/lib/unicore/To/Lower.pl
index 5508634..2fc00e6 100644
--- a/lib/unicore/To/Lower.pl
+++ b/lib/unicore/To/Lower.pl
@@ -263,9 +263,12 @@ return <<'END';
 01B7		0292
 01B8		01B9
 01BC		01BD
-01C4	01C5	01C6
-01C7	01C8	01C9
-01CA	01CB	01CC
+01C4		01C6
+01C5		01C6
+01C7		01C9
+01C8		01C9
+01CA		01CC
+01CB		01CC
 01CD		01CE
 01CF		01D0
 01D1		01D2
@@ -283,7 +286,8 @@ return <<'END';
 01EA		01EB
 01EC		01ED
 01EE		01EF
-01F1	01F2	01F3
+01F1		01F3
+01F2		01F3
 01F4		01F5
 01F6		0195
 01F7		01BF
diff --git a/lib/unicore/To/Title.pl b/lib/unicore/To/Title.pl
index 5a43c63..a4189ec 100644
--- a/lib/unicore/To/Title.pl
+++ b/lib/unicore/To/Title.pl
@@ -344,7 +344,8 @@ return <<'END';
 03BF		039F
 03C0		03A0
 03C1		03A1
-03C2	03C3	03A3
+03C2		03A3
+03C3		03A3
 03C4		03A4
 03C5		03A5
 03C6		03A6
diff --git a/lib/unicore/To/Upper.pl b/lib/unicore/To/Upper.pl
index 3794290..d852650 100644
--- a/lib/unicore/To/Upper.pl
+++ b/lib/unicore/To/Upper.pl
@@ -247,9 +247,12 @@ return <<'END';
 01B9		01B8
 01BD		01BC
 01BF		01F7
-01C5	01C6	01C4
-01C8	01C9	01C7
-01CB	01CC	01CA
+01C5		01C4
+01C6		01C4
+01C8		01C7
+01C9		01C7
+01CB		01CA
+01CC		01CA
 01CE		01CD
 01D0		01CF
 01D2		01D1
@@ -268,7 +271,8 @@ return <<'END';
 01EB		01EA
 01ED		01EC
 01EF		01EE
-01F2	01F3	01F1
+01F2		01F1
+01F3		01F1
 01F5		01F4
 01F9		01F8
 01FB		01FA
@@ -340,7 +344,8 @@ return <<'END';
 03BF		039F
 03C0		03A0
 03C1		03A1
-03C2	03C3	03A3
+03C2		03A3
+03C3		03A3
 03C4		03A4
 03C5		03A5
 03C6		03A6
diff --git a/lib/unicore/mktables b/lib/unicore/mktables
index 067af24..e92effb 100644
--- a/lib/unicore/mktables
+++ b/lib/unicore/mktables
@@ -234,9 +234,11 @@ if (open(my $Unicode, "Unicode.txt")) {
 	    gencat(\@Name, \%General, \@General, \%Cat,
 		   $name, $cat, $code, \&append);
 
-	    append($To{Upper}       ||= [], $code, $upper)   if $upper;
-	    append($To{Lower}       ||= [], $code, $lower)   if $lower;
-	    append($To{Title}       ||= [], $code, $title)   if $title;
+	    # No append() here since since several codes may map into one.
+	    push @{$To{Upper}}, [ $code, $code, $upper ]     if $upper;
+	    push @{$To{Lower}}, [ $code, $code, $lower ]     if $lower;
+	    push @{$To{Title}}, [ $code, $code, $title ]     if $title;
+
 	    append($To{Digit}       ||= [], $code, $decimal) if $decimal;
 	    
 	    append(\@Bidi,                  $code, $bidi);