This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mktables: don't re-use variable for sub-purpose
authorKarl Williamson <public@khwilliamson.com>
Wed, 2 Nov 2011 20:29:15 +0000 (14:29 -0600)
committerKarl Williamson <public@khwilliamson.com>
Tue, 8 Nov 2011 15:09:28 +0000 (08:09 -0700)
A future commit will need the main variable.

lib/unicore/mktables

index 5144ca9..f55ecdc 100644 (file)
@@ -12537,9 +12537,9 @@ sub register_file_for_name($$$) {
         my $sub_filename = join('/', $directory_ref->[1, -1], $file);
 
         my $property = $table->property;
-        $property = ($property == $perl)
-                    ? ""                # 'perl' is never explicitly stated
-                    : standardize($property->name) . '=';
+        my $property_name = ($property == $perl)
+                             ? ""  # 'perl' is never explicitly stated
+                             : standardize($property->name) . '=';
 
         my $deprecated = ($table->status eq $DEPRECATED)
                          ? $table->status_info
@@ -12579,7 +12579,7 @@ sub register_file_for_name($$$) {
                     if ((my $integer_name = $alias->name)
                             =~ s/^ ( -? \d+ ) \.0+ $ /$1/x)
                     {
-                        $stricter_to_file_of{$property . $integer_name}
+                        $stricter_to_file_of{$property_name . $integer_name}
                                                             = $sub_filename;
                     }
                 }