diff options
author | Karl Williamson <public@khwilliamson.com> | 2012-03-11 16:46:18 -0600 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2012-03-19 16:51:25 -0600 |
commit | 6342d44542ab62d41255e7655319b5f5ce0975a3 (patch) | |
tree | 2414615ab976064056c284006eada18d1a3af766 | |
parent | b577d4a6d9513ee5434c94e3104462fdd700d6a7 (diff) | |
download | perl-6342d44542ab62d41255e7655319b5f5ce0975a3.tar.gz |
mktables: A leading zero is different than an only 0
Commit b91749bce0ff3d86c6e210a0b35289b4ad36c144 assumed that a single
0 was a leading 0. This inappropriately makes a table appear to be hex
when it isn't. This currently affects the kPrimaryNumeric property
which is part of the Unihan database, and is not normally generated by
mktables; it is generated only if an installation decides they want
to compile Perl to use the Unihan properties.
-rw-r--r-- | lib/unicore/mktables | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index e322d36418..8d38d0e506 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -6538,7 +6538,7 @@ END # Assume a leading zero means hex, # even if all digits are 0-9 || ($format eq $INTEGER_FORMAT - && $map =~ /^0/); + && $map =~ /^0[0-9A-F]/); $format = $STRING_FORMAT if $format eq $HEX_FORMAT && $map =~ /[^0-9A-F]/; } |