mktables: don't re-use variable for sub-purpose

[perl5.git] / lib / unicore / mktables

diff --git a/lib/unicore/mktables b/lib/unicore/mktables
index 0e88dd1..f55ecdc 100644 (file)
--- a/lib/unicore/mktables
+++ b/lib/unicore/mktables
@@ -12496,8 +12496,7 @@ sub register_file_for_name($$$) {
 
     if ($table->isa('Property')) {
         $table->set_file_path(@$directory_ref, $file);
-        push @map_properties, $table
-                                    if $directory_ref->[0] eq $map_directory;
+        push @map_properties, $table;
         return;
     }
 
@@ -12538,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
@@ -12580,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;
                     }
                 }