In perl.git, the branch ap/baseincguard-old has been updated <http://perl5.git.perl.org/perl.git/commitdiff/81fe29c06e4d088eab2bcdedceee120a27f30c8e?hp=9ed82a594a10c1df3bd03e19bfd149b3e7a0a704>
discards 9ed82a594a10c1df3bd03e19bfd149b3e7a0a704 (commit) discards 964dac3ec406cbd2ce12761db7742cf93ca105ff (commit) discards 5801a20c693f0771ebaaa252dd61cfc97c43f42a (commit) discards a7b01d569a4dfc3aa92fecea323826cf511df1d3 (commit) discards 7a46c33a28cb1257237556bbc1583e57bad4e3d2 (commit) discards 72be9a047675de9450eb7a492c222490c1aef5e7 (commit) - Log ----------------------------------------------------------------- commit 81fe29c06e4d088eab2bcdedceee120a27f30c8e 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/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 82520ca..4398c08 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 dummy 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 dummy hook is present'; } 1; diff --git a/dist/base/t/lib/BaseIncDoubleExtender.pm b/dist/base/t/lib/BaseIncDoubleExtender.pm index fba4820..afc3a2b 100644 --- a/dist/base/t/lib/BaseIncDoubleExtender.pm +++ b/dist/base/t/lib/BaseIncDoubleExtender.pm @@ -1,8 +1,8 @@ package BaseIncDoubleExtender; -BEGIN { - ::isnt $INC[-1], '.', 'no trailing dot in @INC during optional module load from base'; - ::is 0+(grep ref eq 'CODE', @INC), 2, '... but the expected dummy hook'; +BEGIN { package main; + isnt $INC[-1], '.', 'no trailing dot in @INC during optional module load from base'; + is 0+(grep ref eq 'CODE', @INC), 2, '... but the expected dummy hook'; } use lib 't/lib/blahdeblah'; diff --git a/dist/base/t/lib/BaseIncExtender.pm b/dist/base/t/lib/BaseIncExtender.pm index f0b1912..4780450 100644 --- a/dist/base/t/lib/BaseIncExtender.pm +++ b/dist/base/t/lib/BaseIncExtender.pm @@ -1,8 +1,8 @@ package BaseIncExtender; -BEGIN { - ::isnt $INC[-1], '.', 'no trailing dot in @INC during optional module load from base'; - ::is 0+(grep ref eq 'CODE', @INC), 2, '... but the expected dummy hook'; +BEGIN { package main; + isnt $INC[-1], '.', 'no trailing dot in @INC during optional module load from base'; + is 0+(grep ref eq 'CODE', @INC), 2, '... but the expected dummy hook'; } use lib 't/lib/blahblah'; -- Perl5 Master Repository
