diff options
author | Norbert Preining <norbert@preining.info> | 2021-04-02 03:20:54 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2021-04-02 03:20:54 +0000 |
commit | 3f173002d4a4a84e7d1fa5a74755fdd00d08a9c2 (patch) | |
tree | 5ed380344702de1f9ab53b68b6c3bcd6b8458087 /systems/texlive/tlnet/tlpkg/tlperl/lib/charnames.pm | |
parent | f78ba658b3ecd56053fe0837a4404d0c6c16a707 (diff) |
CTAN sync 202104020320
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/charnames.pm')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tlperl/lib/charnames.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/charnames.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/charnames.pm index e22c71913c..0fb341fd1d 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/charnames.pm +++ b/systems/texlive/tlnet/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]+)$/) { |