In perl.git, the branch ap/baseincguard has been updated <http://perl5.git.perl.org/perl.git/commitdiff/4ac8c2985429842eb5c460d41549a144cee4af74?hp=52098917ad8ff2b432090b47362e12a9f01a5722>
discards 52098917ad8ff2b432090b47362e12a9f01a5722 (commit) - Log ----------------------------------------------------------------- commit 4ac8c2985429842eb5c460d41549a144cee4af74 Author: Aristotle Pagaltzis <[email protected]> Date: Sat Oct 29 03:18:37 2016 +0200 base: only hide $INC[-1] . from optional loads ----------------------------------------------------------------------- Summary of changes: dist/base/t/incdot.t | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/dist/base/t/incdot.t b/dist/base/t/incdot.t index aa8032f..cdd5000 100644 --- a/dist/base/t/incdot.t +++ b/dist/base/t/incdot.t @@ -1,7 +1,7 @@ #!/usr/bin/perl -w use strict; -use Test::More tests => 7; # one test is in each BaseInc* itself +use Test::More tests => 8; # one test is in each BaseInc* itself sub rendered_comparison { my ( $got, $expected ) = @_; @@ -26,6 +26,8 @@ BEGIN { ok !$success, 'loading optional modules from . fails'; is_deeply \@INC, \@expected, '... without changes to @INC' or diag rendered_comparison [@INC], [@expected]; + like $@, qr!Base class package "t::lib::Dummy" is not empty but "t/lib/Dummy\.pm" exists in the current directory\.!, + '... and the proper error message'; } use base 'BaseIncExtender'; -- Perl5 Master Repository
