diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Unicode/UCD.pm')
| -rw-r--r-- | Master/tlpkg/tlperl/lib/Unicode/UCD.pm | 23 |
1 files changed, 13 insertions, 10 deletions
diff --git a/Master/tlpkg/tlperl/lib/Unicode/UCD.pm b/Master/tlpkg/tlperl/lib/Unicode/UCD.pm index 6733e119ea4..1f04bca038f 100644 --- a/Master/tlpkg/tlperl/lib/Unicode/UCD.pm +++ b/Master/tlpkg/tlperl/lib/Unicode/UCD.pm @@ -5,7 +5,7 @@ use warnings; no warnings 'surrogate'; # surrogates can be inputs to this use charnames (); -our $VERSION = '0.70'; +our $VERSION = '0.72'; require Exporter; @@ -2091,7 +2091,7 @@ sub prop_aliases ($) { # as a key into another hash. The whole concept is for memory # savings, as the second hash doesn't have to have all the # combinations. Actually, there are two hashes that do the - # converstion. One is used in utf8_heavy.pl (stored in Heavy.pl) for + # conversion. One is used in utf8_heavy.pl (stored in Heavy.pl) for # looking up properties matchable in regexes. This function needs to # access string properties, which aren't available in regexes, so a # second conversion hash is made for them (stored in UCD.pl). Look in @@ -3635,15 +3635,18 @@ RETRY: unshift @invlist, 0; } } - foreach my $i (0 .. @invlist - 1) { - $invmap[$i] = ($i % 2 == 0) ? 'Y' : 'N' - } - # The map includes lines for all code points; add one for the range - # from 0 to the first Y. - if ($invlist[0] != 0) { - unshift @invlist, 0; - unshift @invmap, 'N'; + if (@invlist) { + foreach my $i (0 .. @invlist - 1) { + $invmap[$i] = ($i % 2 == 0) ? 'Y' : 'N' + } + + # The map includes lines for all code points; add one for the range + # from 0 to the first Y. + if ($invlist[0] != 0) { + unshift @invlist, 0; + unshift @invmap, 'N'; + } } } else { |