In perl.git, the branch ap/baseincguard has been updated <http://perl5.git.perl.org/perl.git/commitdiff/81e795769268377db011a37079d23891983e71ba?hp=e1271ce08ad90f07bcdc664d64478d77d1cfa997>
discards e1271ce08ad90f07bcdc664d64478d77d1cfa997 (commit) - Log ----------------------------------------------------------------- commit 81e795769268377db011a37079d23891983e71ba 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/t/incdot.t | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/dist/base/t/incdot.t b/dist/base/t/incdot.t index d5e1ecbebe..412b2feefb 100644 --- a/dist/base/t/incdot.t +++ b/dist/base/t/incdot.t @@ -24,6 +24,13 @@ use lib 't/lib', sub {()}; # make it look like an older perl BEGIN { push @INC, '.' if $INC[-1] ne '.' } +BEGIN { + my $x = sub { CORE::require $_[0] }; + my $y = sub { &$x }; + my $z = sub { &$y }; + *CORE::GLOBAL::require = $z; +} + my @expected; BEGIN { @expected = @INC } use base 'BaseIncMandatory'; -- Perl5 Master Repository
