This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mktables: Extend Name_Alias property to early Unicode releases
authorKarl Williamson <public@khwilliamson.com>
Sun, 25 Mar 2012 04:01:35 +0000 (22:01 -0600)
committerKarl Williamson <public@khwilliamson.com>
Sat, 2 Jun 2012 14:29:14 +0000 (08:29 -0600)
This uses this property so that charnames can work on early Unicode
releases, by including all the aliases that were previously defined in
charnames until Unicode 6.1 started defining them itself.

lib/unicore/mktables

index 37f3ce3..03bf2a5 100644 (file)
@@ -13173,6 +13173,12 @@ END
                                         Replace => $before_or_after);
     }
 
+    # But in this version only, the ALERT has precedence over BELL, the
+    # Unicode_1_Name that would otherwise have precedence.
+    if ($v_version eq v6.0.0) {
+        $perl_charname->add_duplicate(7, 'ALERT', Replace => $MULTIPLE_BEFORE);
+    }
+
     # Now that have everything added, add in abbreviations after
     # everything else.
     foreach my $value (keys %abbreviations) {