mktables: Fix bug for early Unicode versions
authorKarl Williamson <public@khwilliamson.com>
Fri, 30 Dec 2011 16:49:36 +0000 (09:49 -0700)
committerKarl Williamson <public@khwilliamson.com>
Fri, 30 Dec 2011 18:08:32 +0000 (11:08 -0700)
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.

lib/unicore/mktables

index 94062f2..7b7af71 100644 (file)
@@ -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 "";