This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mktables: avoid some extra work
authorKarl Williamson <public@khwilliamson.com>
Thu, 26 Jan 2012 18:30:37 +0000 (11:30 -0700)
committerKarl Williamson <public@khwilliamson.com>
Sat, 4 Feb 2012 23:29:29 +0000 (16:29 -0700)
The object is already known to us as the loop variable, so no need to
derive it again; and change the loop variable name and one other
variable name to distinguish the table as being the full map one from
the simple map one

lib/unicore/mktables

index 50b0ba1..1fe3696 100644 (file)
@@ -10722,25 +10722,24 @@ sub filter_arabic_shaping_line {
         $uc = property_ref('uc');
 
         # For each of the case change mappings...
-        foreach my $case_table ($lc, $tc, $uc) {
-            my $case = $case_table->name;
-            my $full = property_ref($case);
-            unless (defined $full && ! $full->is_empty) {
+        foreach my $full_table ($lc, $tc, $uc) {
+            my $full_name = $full_table->name;
+            unless (defined $full_table && ! $full_table->is_empty) {
                 Carp::my_carp_bug("Need to process UnicodeData before SpecialCasing.  Only special casing will be generated.");
             }
 
             # The simple version's name in each mapping merely has an 's' in
             # front of the full one's
-            my $simple_name = 's' . $case;
+            my $simple_name = 's' . $full_name;
             my $simple = property_ref($simple_name);
-            $simple->initialize($full) if $simple->to_output_map();
+            $simple->initialize($full_table) if $simple->to_output_map();
 
-            my $simple_only = Property->new("_s$case",
+            my $simple_only = Property->new("_s$full_name",
                     Type => $STRING,
                     Default_Map => $CODE_POINT,
                     Perl_Extension => 1,
                     Fate => $INTERNAL_ONLY,
-                    Description => "This contains the simple mappings for $case for just the code points that have different full mappings");
+                    Description => "This contains the simple mappings for $full_name for just the code points that have different full mappings");
             $simple_only->set_to_output_map($INTERNAL_MAP);
             $simple_only->add_comment(join_lines( <<END
 This file is for UCD.pm so that it can construct simple mappings that would