From 01d970b5fd18ea937fedb7dc0dc287e780387e66 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Mon, 17 Oct 2011 11:01:56 -0600 Subject: [PATCH] mktables: Refactor a string set. The unadorned full name will be needed for future commits --- lib/unicore/mktables | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/lib/unicore/mktables b/lib/unicore/mktables index 74c3b58..2e67281 100644 --- 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)'; } -- 2.7.4