From 35d199fe62f7185ac03fec4cd1cb06aaf21f0172 Mon Sep 17 00:00:00 2001
From: Kent Fredric <kentnl@gentoo.org>
Date: Mon, 30 Oct 2017 20:07:40 +1300
Subject: Fix test failures without '.' in @INC on Perl 5.26

Where: PERL_USE_UNSAFE_INC=0

Bug: https://bugs.gentoo.org/617110
Bug: https://rt.cpan.org/Ticket/Display.html?id=121035
Bug: https://github.com/neilb/Module-Info/pull/3
---
 t/Module-Info.t | 4 ++--
 t/lib/Foo.pm    | 8 ++++----
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/t/Module-Info.t b/t/Module-Info.t
index bb62479..5c59214 100644
--- a/t/Module-Info.t
+++ b/t/Module-Info.t
@@ -203,8 +203,8 @@ SKIP: {
     my @mods = $module->modules_used;
     is( @mods, 8,           'modules_used' );
     is_deeply( [sort @mods],
-               [sort qw(strict vars Carp Exporter t/lib/Bar.pm t/lib/NotHere.pm
-                        t/lib/Foo.pm lib)] );
+               [sort qw(strict vars Carp Exporter ./t/lib/Bar.pm ./t/lib/NotHere.pm
+                        ./t/lib/Foo.pm lib)] );
 
     $module->name('Foo');
     my @isa = $module->superclasses;
diff --git a/t/lib/Foo.pm b/t/lib/Foo.pm
index 956a79f..2602df2 100644
--- a/t/lib/Foo.pm
+++ b/t/lib/Foo.pm
@@ -2,7 +2,7 @@ package Foo;
 
 use strict;
 require Exporter;
-require "t/lib/Foo.pm";
+require "./t/lib/Foo.pm";
 use vars qw(@ISA $VERSION);
 $VERSION = 7.254;
 
@@ -56,13 +56,13 @@ sub croak {
 
     return sub {
         main::wibble('call insde anon sub inside sub');
-        require 't/lib/NotHere.pm';
+        require './t/lib/NotHere.pm';
     }
 }
 
 BEGIN {
-    require 't/lib/Bar.pm';
+    require './t/lib/Bar.pm';
 }
 
-my $mod = 't/lib/Bar.pm';
+my $mod = './t/lib/Bar.pm';
 require $mod;
-- 
2.14.3