This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
mktables: store method value in variable
authorKarl Williamson <public@khwilliamson.com>
Fri, 4 Nov 2011 21:06:52 +0000 (15:06 -0600)
committerKarl 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

index df91b3a..07a7444 100644 (file)
@@ -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)  {