In t/10-base.t, always show @INC

[perl/modules/Acme-CPANAuthors-You-re_using.git] / t / 10-base.t

diff --git a/t/10-base.t b/t/10-base.t
index 06c7a3f7c6b6ad035a49f97ac16e8190626b49e6..c3899ce28c8983177902fd251aefa095e2037999 100644 (file)
--- a/t/10-base.t
+++ b/t/10-base.t
@@ -7,6 +7,11 @@ use Test::More;
 
 use Acme::CPANAuthors;
 
+local @INC = grep $_ ne '.', @INC;
+
+diag 'Directories in @INC :';
+diag "  $_" for @INC;
+
 my $authors = eval {
  local $SIG{__WARN__} = sub {
   my ($msg) = @_;