This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
6c5e6d1
)
mktables: store method value in variable
author
Karl Williamson
<public@khwilliamson.com>
Fri, 4 Nov 2011 21:06:52 +0000
(15:06 -0600)
committer
Karl Williamson
<public@khwilliamson.com>
Tue, 8 Nov 2011 15:09:30 +0000
(08:09 -0700)
This variable will have later use. This also changes 'table' to
'property' for more clarity. Here they point to the same thing
lib/unicore/mktables
patch
|
blob
|
blame
|
history
diff --git
a/lib/unicore/mktables
b/lib/unicore/mktables
index
df91b3a
..
07a7444
100644
(file)
--- a/
lib/unicore/mktables
+++ b/
lib/unicore/mktables
@@
-14564,8
+14564,9
@@
sub write_all_tables() {
my @property_aliases = $property->aliases;
- my $standard_property_name = standardize($table->name);
my $full_property_name = $property->full_name;
+ my $property_name = $property->name;
+ my $standard_property_name = standardize($property_name);
# For each synonym ...
for my $i (0 .. @property_aliases - 1) {