In perl.git, the branch ap/baseincguard has been updated <http://perl5.git.perl.org/perl.git/commitdiff/330b15e7bf6c4e0a0e5e5a99ca09d9a404106337?hp=0cdb708ac019a27be839c6437ed1ec86e0e0a707>
discards 0cdb708ac019a27be839c6437ed1ec86e0e0a707 (commit) - Log ----------------------------------------------------------------- commit 330b15e7bf6c4e0a0e5e5a99ca09d9a404106337 Author: Aristotle Pagaltzis <[email protected]> Date: Sat Oct 29 08:05:58 2016 +0200 base: only hide $INC[-1] . from optional loads ----------------------------------------------------------------------- Summary of changes: dist/base/lib/base.pm | 1 + 1 file changed, 1 insertion(+) diff --git a/dist/base/lib/base.pm b/dist/base/lib/base.pm index 5b04755..001085b 100644 --- a/dist/base/lib/base.pm +++ b/dist/base/lib/base.pm @@ -8,6 +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 sub base::__inc::scope_guard::DESTROY { base::__inc::unhook $_ for @{$_[0]} } # constant.pm is slow -- Perl5 Master Repository
