mktables: Refactor a string set.

The unadorned full name will be needed for future commits

diff --git a/lib/unicore/mktables b/lib/unicore/mktables
index 74c3b58..2e67281 100644 (file)
--- a/lib/unicore/mktables
+++ b/lib/unicore/mktables
@@ -14358,8 +14358,7 @@ sub write_all_tables() {
 
                     # The full name of this property is stored by convention
                     # first in the alias array
-                    my $full_property_name =
-                                '\p{' . $property_aliases[0]->name . ': *}';
+                    my $full_property_name = $property_aliases[0]->name;
                     my $standard_property_name = standardize($table->name);
 
                     # For each synonym ...
@@ -14388,7 +14387,7 @@ sub write_all_tables() {
                                 || ! defined $pod_directory
                                 || ! $alias->make_re_pod_entry;
 
-                        my $rhs = $full_property_name;
+                        my $rhs = "\\p{$full_property_name: *}";
                         if ($property != $perl && $table->perl_extension) {
                             $rhs .= ' (Perl extension)';
                         }