From eaf19603884bcdbcf54a5efb0c724c17e76c3d87 Mon Sep 17 00:00:00 2001
From: David Golden <xdg@xdg.me>
Date: Sat, 15 Apr 2017 22:46:01 -0400
Subject: [PATCH] Fix for perls without . in @INC

Fixes #8.
---
 Changes                                            | 4 ++++
 examples/dies.t                                    | 5 +++--
 t/leanload.t                                       | 2 +-
 t/lib/{B_laced_INC_dump.pm => B_laced_INC_dump.pl} | 0
 4 files changed, 8 insertions(+), 3 deletions(-)
 rename t/lib/{B_laced_INC_dump.pm => B_laced_INC_dump.pl} (100%)

diff --git a/Changes b/Changes
index 3c0391a..9e014b2 100644
--- 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
index b81c9a0..ec1404c 100644
--- 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
index ab74b8c..4142411 100644
--- 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 b/t/lib/B_laced_INC_dump.pl
similarity index 100%
rename from t/lib/B_laced_INC_dump.pm
rename to t/lib/B_laced_INC_dump.pl