diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/charnames.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/charnames.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Master/tlpkg/tlperl/lib/charnames.pm b/Master/tlpkg/tlperl/lib/charnames.pm index e22c71913c8..0fb341fd1dd 100644 --- a/Master/tlpkg/tlperl/lib/charnames.pm +++ b/Master/tlpkg/tlperl/lib/charnames.pm @@ -1,7 +1,7 @@ package charnames; use strict; use warnings; -our $VERSION = '1.45'; +our $VERSION = '1.48'; use unicore::Name; # mktables-generated algorithmically-defined names use _charnames (); # The submodule for this where most of the work gets done @@ -41,6 +41,7 @@ sub vianame # found, undef otherwise. my $arg = shift; + return () unless length $arg; if ($arg =~ /^U\+([0-9a-fA-F]+)$/) { @@ -70,6 +71,7 @@ sub string_vianame { } my $arg = shift; + return () unless length $arg; if ($arg =~ /^U\+([0-9a-fA-F]+)$/) { |