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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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);