diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-11-04 14:26:22 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-11-08 08:09:30 -0700 |
| commit | 3f332e1cf73653b5dbe13af3f4be2429643f6af1 (patch) | |
| tree | 15542cc927971cac601568c7dccd411cd4379c48 /lib/unicore | |
| parent | 9e4a1e8651fc56388e62f63b3d7c370b24438336 (diff) | |
| download | perl-3f332e1cf73653b5dbe13af3f4be2429643f6af1.tar.gz | |
mktables: Refactor area of code for future commits
This commit changes this area of code to not skip the whole thing for
string properties. This is because future commits will use those parts
of it.
Diffstat (limited to 'lib/unicore')
| -rw-r--r-- | lib/unicore/mktables | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index 158b5e1691..9bf590a6d6 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -14555,7 +14555,6 @@ sub write_all_tables() { # Don't write out or make references to the $perl property next if $table == $perl; - if ($type != $STRING) { # There is a mapping stored of the various synonyms to the # standardized name of the property for utf8_heavy.pl. @@ -14578,6 +14577,7 @@ sub write_all_tables() { # For utf8_heavy, set the mapping of the alias to the # property + if ($type != $STRING) { if (exists ($loose_property_name_of{$alias_standard})) { Carp::my_carp("There already is a property with the same standard name as $alias_name: $loose_property_name_of{$alias_standard}. Old name is retained"); @@ -14605,8 +14605,8 @@ sub write_all_tables() { '\p{' . $alias->name . ': *}', $rhs, $alias->status); + } } - } # End of non-string-like property code # Don't write out a mapping file if not desired. |