From: Karl Williamson <public@khwilliamson.com>
Date: Fri, 4 Nov 2011 21:03:37 +0000 (-0600)
Subject: mktables: Use method instead of relying on internals
X-Git-Tag: v5.15.5~136^2~39
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/6c5e6d10b57a8bbbc72c884dadaded4ab8ccf1fe

mktables: Use method instead of relying on internals

A method call exists so that the caller doesn't need to know these
internals
---

diff --git a/lib/unicore/mktables b/lib/unicore/mktables
index 9bf590a..df91b3a 100644
--- 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)  {