In perl.git, the branch ap/baseincguard has been updated <http://perl5.git.perl.org/perl.git/commitdiff/f9521a667140d9dd257050be07e46d6327eab148?hp=9404d5cea31a76376f4d45b697749cbf9b7f7448>
discards 9404d5cea31a76376f4d45b697749cbf9b7f7448 (commit) - Log ----------------------------------------------------------------- commit f9521a667140d9dd257050be07e46d6327eab148 Author: Aristotle Pagaltzis <[email protected]> Date: Sat Oct 29 07:51:37 2016 +0200 base: only hide $INC[-1] . from optional loads ----------------------------------------------------------------------- Summary of changes: dist/base/lib/base.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/dist/base/lib/base.pm b/dist/base/lib/base.pm index 023f64c..a42e230 100644 --- a/dist/base/lib/base.pm +++ b/dist/base/lib/base.pm @@ -118,10 +118,10 @@ sub import { # until itâs reached twice, which must be a recursive require. # If that happens, it removes the rear hook from @INC to keep # the dot visible. - # Note that this setup works recursively. If a module loaded via + # Note that this setup works recursively: if a module loaded via # base.pm itself uses bases.pm, there will be one layer of hooks - # in @INC per base::import call frame on the stack, and they will - # not interfere with each other. + # in @INC per base::import call frame, and they do not interfere + # 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; () }; -- Perl5 Master Repository
