diff options
Diffstat (limited to 'regen/mk_invlists.pl')
| -rw-r--r-- | regen/mk_invlists.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/regen/mk_invlists.pl b/regen/mk_invlists.pl index 7cf5d735e3..e38e9d78c9 100644 --- a/regen/mk_invlists.pl +++ b/regen/mk_invlists.pl @@ -8,6 +8,7 @@ use Unicode::UCD qw(prop_aliases prop_invlist prop_invmap search_invlist charprop + num ); require './regen/regen_lib.pl'; require './regen/charset_translations.pl'; @@ -628,7 +629,7 @@ sub output_invmap ($$$$$$$) { # that. for (my $i = 0; $i < @decimals_invlist; $i += 2) { my $code_point = $decimals_invlist[$i]; - next if chr($code_point) !~ /\p{Nv=0}/; + next if num(chr($code_point)) ne '0'; # Turn the scripts this zero is in into a list. my @scripts = split ",", |