In perl.git, the branch ap/baseincguard has been updated <http://perl5.git.perl.org/perl.git/commitdiff/b8491c6de48318347371d35d60f13d7447470e7c?hp=3c3b8f48d3485ebd0d31cc5c6ea398c72fb46338>
discards 3c3b8f48d3485ebd0d31cc5c6ea398c72fb46338 (commit) - Log ----------------------------------------------------------------- commit b8491c6de48318347371d35d60f13d7447470e7c Author: Aristotle Pagaltzis <[email protected]> Date: Sat Oct 29 09:14:07 2016 +0200 base: only hide $INC[-1] . from optional loads ----------------------------------------------------------------------- Summary of changes: dist/base/lib/base.pm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/dist/base/lib/base.pm b/dist/base/lib/base.pm index bc43e5918e..26de798a00 100644 --- a/dist/base/lib/base.pm +++ b/dist/base/lib/base.pm @@ -8,8 +8,7 @@ $VERSION =~ tr/_//d; # simplest way to avoid indexing of the package: no package statement sub base::__inc::unhook { @INC = grep !(ref eq 'CODE' && $_ == $_[0]), @INC } -# instance is blessed array of coderefs to be removed from @INC at scope exit -sub base::__inc::scope_guard::DESTROY { base::__inc::unhook $_ for @{$_[0]} } +sub base::__inc::scope_guard::DESTROY { base::__inc::unhook $_[0][0] } # constant.pm is slow sub SUCCESS () { 1 } -- Perl5 Master Repository
