In perl.git, the branch ap/baseincguard-old has been updated <http://perl5.git.perl.org/perl.git/commitdiff/ea93ae05d739d4297823c395d53fd8e650ff6dcc?hp=995f53811ecb816fb1917400d6e061d9d1d17038>
discards 995f53811ecb816fb1917400d6e061d9d1d17038 (commit) - Log ----------------------------------------------------------------- commit ea93ae05d739d4297823c395d53fd8e650ff6dcc Author: Aristotle Pagaltzis <[email protected]> Date: Thu Oct 20 17:05:45 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 d7d2645..fa71800 100644 --- a/dist/base/lib/base.pm +++ b/dist/base/lib/base.pm @@ -127,7 +127,7 @@ Base class package "$base" is empty. or make that module available in \@INC (\@INC contains: @INC). ERROR } - elsif (!$success && $INC[-1] eq '.' && -e $fn) { + elsif (!$success && $INC[-1] eq '.' && grep -e && !( -d _ || -b _ ), $fn, $fn.'c') { require Carp; Carp::croak(<<ERROR); Base class package "$base" is not empty but "$fn" exists in the current directory. -- Perl5 Master Repository
