In perl.git, the branch ap/baseincguard has been updated <http://perl5.git.perl.org/perl.git/commitdiff/c5d5e3fd6c1b4120ffa14179cf0737e643f1f83a?hp=335840bed8dfa5f4e948a2e4b1c2c450beda6216>
discards 335840bed8dfa5f4e948a2e4b1c2c450beda6216 (commit) - Log ----------------------------------------------------------------- commit c5d5e3fd6c1b4120ffa14179cf0737e643f1f83a 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 9f08ed8..4418e2e 100644 --- a/dist/base/lib/base.pm +++ b/dist/base/lib/base.pm @@ -125,7 +125,7 @@ sub import { # with each other. my ($reentrant, $front_hook, $rear_hook); unshift @INC, $front_hook = sub { base::__inc::unhook $rear_hook if $reentrant++; () }; - splice @INC, -1, 0, $rear_hook = sub { ++$dot_hidden, &base::__inc::unhook; () }; + splice @INC, -1, 0, $rear_hook = sub { ++$dot_hidden, &base::__inc::unhook if $reentrant == 1; () }; $guard = bless [ $front_hook, $rear_hook ], 'base::__inc::scope_guard'; } require $fn -- Perl5 Master Repository
