summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tlperl/lib/charnames.pm
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2021-04-02 03:20:54 +0000
committerNorbert Preining <norbert@preining.info>2021-04-02 03:20:54 +0000
commit3f173002d4a4a84e7d1fa5a74755fdd00d08a9c2 (patch)
tree5ed380344702de1f9ab53b68b6c3bcd6b8458087 /systems/texlive/tlnet/tlpkg/tlperl/lib/charnames.pm
parentf78ba658b3ecd56053fe0837a4404d0c6c16a707 (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.pm4
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]+)$/) {