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:
3f332e1
)
mktables: Use method instead of relying on internals
author
Karl Williamson
<public@khwilliamson.com>
Fri, 4 Nov 2011 21:03:37 +0000
(15:03 -0600)
committer
Karl Williamson
<public@khwilliamson.com>
Tue, 8 Nov 2011 15:09:30 +0000
(08:09 -0700)
A method call exists so that the caller doesn't need to know these
internals
lib/unicore/mktables
patch
|
blob
|
blame
|
history
diff --git
a/lib/unicore/mktables
b/lib/unicore/mktables
index
9bf590a
..
df91b3a
100644
(file)
--- a/
lib/unicore/mktables
+++ b/
lib/unicore/mktables
@@
-14564,10
+14564,8
@@
sub write_all_tables() {
my @property_aliases = $property->aliases;
- # The full name of this property is stored by convention
- # first in the alias array
- my $full_property_name = $property_aliases[0]->name;
my $standard_property_name = standardize($table->name);
+ my $full_property_name = $property->full_name;
# For each synonym ...
for my $i (0 .. @property_aliases - 1) {