summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Unicode/UCD.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Unicode/UCD.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Unicode/UCD.pm23
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 {