In perl.git, the branch ap/baseincguard has been updated <http://perl5.git.perl.org/perl.git/commitdiff/0cdb708ac019a27be839c6437ed1ec86e0e0a707?hp=f9521a667140d9dd257050be07e46d6327eab148>
discards f9521a667140d9dd257050be07e46d6327eab148 (commit) - Log ----------------------------------------------------------------- commit 0cdb708ac019a27be839c6437ed1ec86e0e0a707 Author: Aristotle Pagaltzis <[email protected]> Date: Sat Oct 29 08:03:44 2016 +0200 base: only hide $INC[-1] . from optional loads ----------------------------------------------------------------------- Summary of changes: dist/base/lib/base.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/dist/base/lib/base.pm b/dist/base/lib/base.pm index a42e230..5b04755 100644 --- a/dist/base/lib/base.pm +++ b/dist/base/lib/base.pm @@ -107,8 +107,8 @@ sub import { if ($INC[-1] eq '.' && %{"$base\::"}) { # So: the package already exists => this an optional load # And: there is a dot at the end of @INC => we want to hide it - # However: we only want to hide it during our *own* `require` - # (i.e. without affecting recursive `require`s). + # However: we only want to hide it during our *own* require() + # (i.e. without affecting recursive require()s). # To achieve this overal effect, we use two hooks: # - A rear hook, which intercepts @INC traversal before the dot is # reached by sitting immediately in front of the dot. It hides -- Perl5 Master Repository
