From 3f173002d4a4a84e7d1fa5a74755fdd00d08a9c2 Mon Sep 17 00:00:00 2001
From: Norbert Preining <norbert@preining.info>
Date: Fri, 2 Apr 2021 03:20:54 +0000
Subject: CTAN sync 202104020320

---
 systems/texlive/tlnet/tlpkg/tlperl/lib/Sub/Util.pm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/Sub')

diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/Sub/Util.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/Sub/Util.pm
index edcc6544f6..d7b59aebab 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/Sub/Util.pm
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/Sub/Util.pm
@@ -15,8 +15,8 @@ our @EXPORT_OK = qw(
   subname set_subname
 );
 
-our $VERSION    = "1.50";
-$VERSION   = eval $VERSION;
+our $VERSION    = "1.55";
+$VERSION =~ tr/_//d;
 
 require List::Util; # as it has the XS
 List::Util->VERSION( $VERSION ); # Ensure we got the right XS version (RT#100863)
@@ -95,8 +95,10 @@ I<Since version 1.40.>
 Returns the name of the given C<$code> reference, if it has one. Normal named
 subs will give a fully-qualified name consisting of the package and the
 localname separated by C<::>. Anonymous code references will give C<__ANON__>
-as the localname. If a name has been set using L</set_subname>, this name will
-be returned instead.
+as the localname. If the package the code was compiled in has been deleted
+(e.g. using C<delete_package> from L<Symbol>), C<__ANON__> will be returned as
+the package name. If a name has been set using L</set_subname>, this name will be
+returned instead.
 
 This function was inspired by C<sub_fullname> from L<Sub::Identify>. The
 remaining functions that C<Sub::Identify> implements can easily be emulated
-- 
cgit v1.2.3