Fix for perls without . in @inc

Fixes #8.
dagolden · Apr 16, 2017 · eaf1960 · eaf1960
1 parent 66d27de
commit eaf1960
Show file tree

Hide file tree

Showing 4 changed files with 8 additions and 3 deletions.
diff --git a/Changes b/Changes
@@ -2,6 +2,10 @@ Revision history for Test-DiagINC
 
 {{$NEXT}}
 
+    [FIXED]
+
+    - Fixed tests for perls without '.' in @INC
+
 0.006     2016-09-23 20:39:00-04:00 America/New_York
 
     - No changes from 0.005.

diff --git a/examples/dies.t b/examples/dies.t
@@ -2,8 +2,9 @@ use strict;
 use warnings;
 use if $ENV{AUTOMATED_TESTING}, 'Test::DiagINC';
 use ExtUtils::MakeMaker;
-use examples::lib::Foo;
-eval { require examples::lib::SyntaxErr };
+use lib 'examples/lib';
+use Foo;
+eval { require SyntaxErr };
 
 chdir ".." or die "$!"; # try to mess up relative entry in %INC
 

diff --git a/t/leanload.t b/t/leanload.t
@@ -20,7 +20,7 @@ BEGIN {
     @::initial_INC = keys %INC;
 
     unless ( $] < 5.008 ) {
-        @::B_inc = split /\0/, `$^X -Mt::lib::B_laced_INC_dump`;
+        @::B_inc = split /\0/, `$^X t/lib/B_laced_INC_dump.pl`;
     }
 }
 

diff --git a/t/lib/B_laced_INC_dump.pm → t/lib/B_laced_INC_dump.pl b/t/lib/B_laced_INC_dump.pm → t/lib/B_laced_INC_dump.pl