In perl.git, the branch ap/baseincguard has been updated <http://perl5.git.perl.org/perl.git/commitdiff/b32130dfcea89a831f277af49073a16519ea28c3?hp=c5d5e3fd6c1b4120ffa14179cf0737e643f1f83a>
discards c5d5e3fd6c1b4120ffa14179cf0737e643f1f83a (commit) discards 964dac3ec406cbd2ce12761db7742cf93ca105ff (commit) discards 5801a20c693f0771ebaaa252dd61cfc97c43f42a (commit) discards a7b01d569a4dfc3aa92fecea323826cf511df1d3 (commit) discards 7a46c33a28cb1257237556bbc1583e57bad4e3d2 (commit) discards 72be9a047675de9450eb7a492c222490c1aef5e7 (commit) - Log ----------------------------------------------------------------- commit b32130dfcea89a831f277af49073a16519ea28c3 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/lib/BaseIncChecker.pm | 6 +++--- dist/base/t/lib/BaseIncDoubleExtender.pm | 6 +++--- dist/base/t/lib/BaseIncExtender.pm | 6 +++--- 3 files changed, 9 insertions(+), 9 deletions(-) diff --git a/dist/base/t/lib/BaseIncChecker.pm b/dist/base/t/lib/BaseIncChecker.pm index ff557fd..be22f26 100644 --- a/dist/base/t/lib/BaseIncChecker.pm +++ b/dist/base/t/lib/BaseIncChecker.pm @@ -1,8 +1,8 @@ package BaseIncChecker; -BEGIN { - ::is $INC[-1], '.', 'trailing dot remains in @INC during mandatory module load from base'; - ::is 0+(grep ref eq 'CODE', @INC), 1, '... and no extra hook is present'; +BEGIN { package main; + is $INC[-1], '.', 'trailing dot remains in @INC during mandatory module load from base'; + is 0+(grep ref eq 'CODE', @INC), 1, '... and no extra hook is present'; } 1; diff --git a/dist/base/t/lib/BaseIncDoubleExtender.pm b/dist/base/t/lib/BaseIncDoubleExtender.pm index 3ccdf22..7240d52 100644 --- a/dist/base/t/lib/BaseIncDoubleExtender.pm +++ b/dist/base/t/lib/BaseIncDoubleExtender.pm @@ -1,8 +1,8 @@ package BaseIncDoubleExtender; -BEGIN { - ::is $INC[-1], '.', 'trailing dot remains in @INC during optional module load from base'; - ::is 0+(grep ref eq 'CODE', @INC), 3, '... but the expected extra hooks'; +BEGIN { package main; + is $INC[-1], '.', 'trailing dot remains in @INC during optional module load from base'; + is 0+(grep ref eq 'CODE', @INC), 3, '... but the expected extra hooks'; } use lib 't/lib/blahdeblah'; diff --git a/dist/base/t/lib/BaseIncExtender.pm b/dist/base/t/lib/BaseIncExtender.pm index 87df194..2679e5d 100644 --- a/dist/base/t/lib/BaseIncExtender.pm +++ b/dist/base/t/lib/BaseIncExtender.pm @@ -1,8 +1,8 @@ package BaseIncExtender; -BEGIN { - ::is $INC[-1], '.', 'trailing dot remains in @INC during optional module load from base'; - ::is 0+(grep ref eq 'CODE', @INC), 3, '... but the expected extra hooks'; +BEGIN { package main; + is $INC[-1], '.', 'trailing dot remains in @INC during optional module load from base'; + is 0+(grep ref eq 'CODE', @INC), 3, '... but the expected extra hooks'; } use lib 't/lib/blahblah'; -- Perl5 Master Repository
