diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-11-02 14:29:15 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-11-08 08:09:28 -0700 |
| commit | ae51efca3724f187851a6447c41e96acb67546b3 (patch) | |
| tree | b28ddf532df348bdccb377d802003c6e2f0d3c52 /lib/unicore | |
| parent | 48cf9da9a57ff276fa090a1cbf5c0e5b12ab69d5 (diff) | |
| download | perl-ae51efca3724f187851a6447c41e96acb67546b3.tar.gz | |
mktables: don't re-use variable for sub-purpose
A future commit will need the main variable.
Diffstat (limited to 'lib/unicore')
| -rw-r--r-- | lib/unicore/mktables | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index 5144ca9149..f55ecdc47a 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; } } |