X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/48cf9da9a57ff276fa090a1cbf5c0e5b12ab69d5..ae51efca3724f187851a6447c41e96acb67546b3:/lib/unicore/mktables

diff --git a/lib/unicore/mktables b/lib/unicore/mktables
index 5144ca9..f55ecdc 100644
--- a/lib/unicore/mktables
+++ b/lib/unicore/mktables
@@ -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;
                     }
                 }