In perl.git, the branch ap/baseincguard has been updated <http://perl5.git.perl.org/perl.git/commitdiff/2d3362edfbf545075aa43a917bfaf4ec7fef9976?hp=b8491c6de48318347371d35d60f13d7447470e7c>
discards b8491c6de48318347371d35d60f13d7447470e7c (commit) - Log ----------------------------------------------------------------- commit 2d3362edfbf545075aa43a917bfaf4ec7fef9976 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 26de798a00..618a25bdaf 100644 --- a/dist/base/lib/base.pm +++ b/dist/base/lib/base.pm @@ -123,7 +123,7 @@ sub import { # Note that this setup works fine recursively: if a module loaded # via base.pm itself uses base.pm, there will be one hook in @INC # per base::import call frame, but they do not affect each other. - my $lvl = 0; 1 while defined caller ++$lvl; + my $lvl; 1 while defined caller ++$lvl; my $hook = sub { ++$dot_hidden, &base::__inc::unhook unless defined caller 1+$lvl; () }; $guard = bless [ $hook ], 'base::__inc::scope_guard'; splice @INC, -1, 0, $hook; -- Perl5 Master Repository
