summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2016-03-17 15:25:09 -0600
committerKarl Williamson <khw@cpan.org>2016-03-17 16:13:49 -0600
commitc84b473c717dfd2cd2c9d1e61d70721565c537a7 (patch)
tree90009bb4f163c3efea5dbefc54819c3febc35282 /lib
parent4ed2b786f0a44b01cfc49ae1a48bd9745aac2d6f (diff)
downloadperl-c84b473c717dfd2cd2c9d1e61d70721565c537a7.tar.gz
mktables: Use correct structure to look up data
There are two types of tables in mktables: Map tables map code points to the values a property have for those code points; and match tables which are booleans, give "does a code point match a given property value?". There are different data structures to encapsulate each. This code was using the wrong structure to look something up. Usually this failed, and a fall-back value was used instead. When compiling an early Unicode release, I discovered that there could be a conflict.
Diffstat (limited to 'lib')
-rw-r--r--lib/unicore/mktables2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables
index 6b6851f337..d5e1f3dbbf 100644
--- a/lib/unicore/mktables
+++ b/lib/unicore/mktables
@@ -6993,7 +6993,7 @@ sub trace { return main::trace(@_); }
# Convert the input to the standard equivalent, if any (won't have any
# for $STRING properties)
- my $standard = $self->_find_table_from_alias->{$map};
+ my $standard = $self->property->table($map);
$map = $standard->name if defined $standard;
# Warn if there already is a non-equivalent default map for this