This is an automated email from the git hooks/post-receive script. js pushed a commit to tag 1.001_001 in repository libtype-tiny-perl.
commit 877678d0e90bbaa3de61b9fda5961413716f73bb Author: Toby Inkster <[email protected]> Date: Tue Sep 9 09:12:10 2014 +0100 prefer Sub::Util over Sub::Name because it has a smaller footprint (doesn't load up Dynaloader.pm, Config.pm, vars.pm, base.pm) --- lib/Type/Library.pm | 2 +- lib/Type/Tiny.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/Type/Library.pm b/lib/Type/Library.pm index b60ebff..bd30090 100644 --- a/lib/Type/Library.pm +++ b/lib/Type/Library.pm @@ -27,8 +27,8 @@ sub _croak ($;@) { require Error::TypeTiny; goto \&Error::TypeTiny::croak } sub _subname ($$) { $subname = - eval { require Sub::Name } ? \&Sub::Name::subname : eval { require Sub::Util } ? \&Sub::Util::set_subname : + eval { require Sub::Name } ? \&Sub::Name::subname : 0 if not defined $subname; !$already{refaddr($_[1])}++ and return($subname->(@_)) diff --git a/lib/Type/Tiny.pm b/lib/Type/Tiny.pm index d96b1fd..76d1318 100644 --- a/lib/Type/Tiny.pm +++ b/lib/Type/Tiny.pm @@ -207,8 +207,8 @@ sub new if ($params{my_methods}) { $subname = - eval { require Sub::Name } ? \&Sub::Name::subname : eval { require Sub::Util } ? \&Sub::Util::set_subname : + eval { require Sub::Name } ? \&Sub::Name::subname : 0 if not defined $subname; if ($subname) -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libtype-tiny-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list [email protected] http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits
