diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-12-30 09:49:36 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-12-30 11:08:32 -0700 |
| commit | 9ba5575c1d28bd528491a29c6e400173f308e987 (patch) | |
| tree | 46bbf575db9e141162a17064dbf316c2da559f87 | |
| parent | ce4326557fd52ed5f0dbfaaf93f76209db291470 (diff) | |
| download | perl-9ba5575c1d28bd528491a29c6e400173f308e987.tar.gz | |
mktables: Fix bug for early Unicode versions
mktables should be able to be run on any Unicode version. Prior to this
patch, it was trying to do something unconditionally with the Name_Alias
property, whereas it should only do that on versions that have this
property.
| -rw-r--r-- | lib/unicore/mktables | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index 94062f2e0b..7b7af71396 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -9941,7 +9941,7 @@ END Range_Size_1 => \&output_perl_charnames_line, Type => $STRING, ); - $perl_charname->set_proxy_for('Name', 'Name_Alias'); + $perl_charname->set_proxy_for('Name'); my $Perl_decomp = Property->new('Perl_Decomposition_Mapping', Directory => File::Spec->curdir(), @@ -12212,6 +12212,7 @@ sub compile_perl() { my $alias = property_ref('Name_Alias'); if (defined $alias) { push @composition, 'Name_Alias'; + $perl_charname->set_proxy_for('Name_Alias'); $alias->reset_each_range; while (my ($range) = $alias->each_range) { next if $range->value eq ""; |