In perl.git, the branch ap/baseincguard has been updated <http://perl5.git.perl.org/perl.git/commitdiff/5fe1b9d21db4c145c4f1050cdf35e6ff25e6edcd?hp=5cbe1046ee6a5f67d00df1f2d8f475421e1f5190>
discards 5cbe1046ee6a5f67d00df1f2d8f475421e1f5190 (commit) - Log ----------------------------------------------------------------- commit 5fe1b9d21db4c145c4f1050cdf35e6ff25e6edcd 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 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/dist/base/lib/base.pm b/dist/base/lib/base.pm index 4418e2e7f5..01f9beb457 100644 --- a/dist/base/lib/base.pm +++ b/dist/base/lib/base.pm @@ -8,7 +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 } -# blessed array of coderefs to remove from @INC at scope exit +# instance is blessed array of coderefs to remove from @INC at scope exit sub base::__inc::scope_guard::DESTROY { base::__inc::unhook $_ for @{$_[0]} } # constant.pm is slow -- Perl5 Master Repository
