diff options
author | Todd Rinaldo <toddr@cpan.org> | 2018-03-18 17:08:04 -0500 |
---|---|---|
committer | Todd Rinaldo <toddr@cpan.org> | 2018-03-18 17:08:04 -0500 |
commit | 13bb7c4d393b51a96f457e6a551acf04efb18b90 (patch) | |
tree | 7c14a6ec60ba1215b86f3305958f0e8e7c94d6df /cpan/Scalar-List-Utils/lib/Sub | |
parent | 43de38c477bd3ba3e0305e66dc3343de1b7dbb97 (diff) | |
download | perl-13bb7c4d393b51a96f457e6a551acf04efb18b90.tar.gz |
Upgrade Scalar::Util from version 1.49 to 1.50
[DELTA]
1.50 -- 2018-02-20 19:13:27
[CHANGES]
* Added head() and tail() functions (thanks preaction)
* Support binary and Unicode in symbol names for set_subname()
[BUGFIXES]
* Fix building with C++ and C89 compilers
* Fix uniq() test for old Test::More
* Fix example get_code_info for unnamed subs (RT#116962)
* Fixes for symbol names containing ' characters
* Don't leak SVs from sum0/product1 when called with zero args (RT#124017)
* Use sv_rvunweaken() in Scalar::Util::unweaken() (thanks ilmari)
* Misc. fixes for perl 5.6
Diffstat (limited to 'cpan/Scalar-List-Utils/lib/Sub')
-rw-r--r-- | cpan/Scalar-List-Utils/lib/Sub/Util.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/cpan/Scalar-List-Utils/lib/Sub/Util.pm b/cpan/Scalar-List-Utils/lib/Sub/Util.pm index ecfab702cd..edcc6544f6 100644 --- a/cpan/Scalar-List-Utils/lib/Sub/Util.pm +++ b/cpan/Scalar-List-Utils/lib/Sub/Util.pm @@ -15,7 +15,7 @@ our @EXPORT_OK = qw( subname set_subname ); -our $VERSION = "1.49"; +our $VERSION = "1.50"; $VERSION = eval $VERSION; require List::Util; # as it has the XS @@ -102,7 +102,7 @@ This function was inspired by C<sub_fullname> from L<Sub::Identify>. The remaining functions that C<Sub::Identify> implements can easily be emulated using regexp operations, such as - sub get_code_info { return (subname $_[0]) =~ m/^(.+)::(.+?)$/ } + sub get_code_info { return (subname $_[0]) =~ m/^(.+)::(.*?)$/ } sub sub_name { return (get_code_info $_[0])[0] } sub stash_name { return (get_code_info $_[0])[1] } |