mktables: Use initialize instead of a push
authorKarl Williamson <public@khwilliamson.com>
Mon, 4 Jun 2012 15:06:07 +0000 (09:06 -0600)
committerKarl Williamson <public@khwilliamson.com>
Thu, 7 Jun 2012 19:50:40 +0000 (13:50 -0600)
The code later on used to be done only sometimes; now that it is
executed always, some of it can be done at initialization time.

lib/unicore/mktables

index 3b377f5..796e14c 100644 (file)
@@ -13495,8 +13495,7 @@ sub compile_perl() {
     $lv_lvt_v += $gcb->table('LV') + $gcb->table('LVT') + $gcb->table('V');
     $lv_lvt_v->add_comment('For use in \X; matches: hst=LV | hst=LVT | hst=V');
 
-    # Was earlier constructed to contain both Name and Unicode_1_Name
-    my @composition = ('Name', 'Unicode_1_Name');
+    my @composition = ('Name', 'Unicode_1_Name', 'Name_Alias');
 
     if (@named_sequences) {
         push @composition, 'Named_Sequence';
@@ -13508,7 +13507,6 @@ sub compile_perl() {
     my $alias_sentence = "";
     my %abbreviations;
     my $alias = property_ref('Name_Alias');
-    push @composition, 'Name_Alias';
     $perl_charname->set_proxy_for('Name_Alias');
 
     # Add each entry in Name_Alias to Perl_Charnames.  Where these go with