From 3c19af3863c240c791ee82ceb0bcb8903a480510 Mon Sep 17 00:00:00 2001
From: Marius Gavrilescu <marius@ieval.ro>
Date: Thu, 13 Apr 2017 14:35:56 +0300
Subject: [PATCH] Fix tests when @INC has no '.' (RT #121030)

---
 t/confused.t               | 1 +
 t/disable-die.t            | 1 +
 t/disable-safe.t           | 1 +
 t/intermediate-direct.t    | 1 +
 t/intermediate-indirect.t  | 1 +
 t/intermediate-unrelated.t | 1 +
 t/lax-direct.t             | 1 +
 t/lax-indirect.t           | 1 +
 t/lax-unrelated.t          | 1 +
 t/strict-die.t             | 1 +
 t/strict-safe.t            | 1 +
 11 files changed, 11 insertions(+)

diff --git a/t/confused.t b/t/confused.t
index 8371dd8..b8cd7ec 100644
--- a/t/confused.t
+++ b/t/confused.t
@@ -1,4 +1,5 @@
 #!/usr/bin/perl
+use lib '.';
 use Test::More tests => 6;
 
 ok !eval {require t::t4::ConfusedStrict1 }, 'Confused strict 1 dies';
diff --git a/t/disable-die.t b/t/disable-die.t
index 9b81c92..d7013dd 100644
--- a/t/disable-die.t
+++ b/t/disable-die.t
@@ -1,4 +1,5 @@
 #!/usr/bin/perl
+use lib '.';
 use Test::More tests => 1;
 
 ok !eval { require t::t2::Dies }, 'Unrelated dies';
diff --git a/t/disable-safe.t b/t/disable-safe.t
index 8e1473d..e7b5dae 100644
--- a/t/disable-safe.t
+++ b/t/disable-safe.t
@@ -1,4 +1,5 @@
 #!/usr/bin/perl
+use lib '.';
 use Test::More tests => 1;
 
 require_ok 't::t2::Survives';
diff --git a/t/intermediate-direct.t b/t/intermediate-direct.t
index 6b48cce..25cb4d5 100644
--- a/t/intermediate-direct.t
+++ b/t/intermediate-direct.t
@@ -1,4 +1,5 @@
 #!/usr/bin/perl
+use lib '.';
 use Test::More tests => 1;
 
 ok !eval {require t::t3::IntermediateDirect }, 'Direct intermediate dies';
diff --git a/t/intermediate-indirect.t b/t/intermediate-indirect.t
index 51ecb7a..6df5674 100644
--- a/t/intermediate-indirect.t
+++ b/t/intermediate-indirect.t
@@ -1,4 +1,5 @@
 #!/usr/bin/perl
+use lib '.';
 use Test::More tests => 1;
 
 ok !eval {require t::t3::IntermediateIndirect }, 'Indirect intermediate dies';
diff --git a/t/intermediate-unrelated.t b/t/intermediate-unrelated.t
index c731050..20194a6 100644
--- a/t/intermediate-unrelated.t
+++ b/t/intermediate-unrelated.t
@@ -1,4 +1,5 @@
 #!/usr/bin/perl
+use lib '.';
 use Test::More tests => 2;
 
 require_ok 't::t3::Evil';
diff --git a/t/lax-direct.t b/t/lax-direct.t
index 89db622..89de1fc 100644
--- a/t/lax-direct.t
+++ b/t/lax-direct.t
@@ -1,4 +1,5 @@
 #!/usr/bin/perl
+use lib '.';
 use Test::More tests => 1;
 
 ok !eval {require t::t3::LaxDirect }, 'Direct lax dies';
diff --git a/t/lax-indirect.t b/t/lax-indirect.t
index ed63156..b0e9492 100644
--- a/t/lax-indirect.t
+++ b/t/lax-indirect.t
@@ -1,4 +1,5 @@
 #!/usr/bin/perl
+use lib '.';
 use Test::More tests => 1;
 
 require_ok 't::t3::LaxIndirect';
diff --git a/t/lax-unrelated.t b/t/lax-unrelated.t
index 3f0d705..30cefe4 100644
--- a/t/lax-unrelated.t
+++ b/t/lax-unrelated.t
@@ -1,4 +1,5 @@
 #!/usr/bin/perl
+use lib '.';
 use Test::More tests => 2;
 
 require_ok 't::t3::Evil';
diff --git a/t/strict-die.t b/t/strict-die.t
index a43b699..6d97488 100644
--- a/t/strict-die.t
+++ b/t/strict-die.t
@@ -1,4 +1,5 @@
 #!/usr/bin/perl
+use lib '.';
 use Test::More tests => 4;
 
 require_ok 't::t1::Evil';
diff --git a/t/strict-safe.t b/t/strict-safe.t
index 4c3b826..ce4335a 100644
--- a/t/strict-safe.t
+++ b/t/strict-safe.t
@@ -1,4 +1,5 @@
 #!/usr/bin/perl
+use lib '.';
 use Test::More tests => 1;
 
 require_ok 't::t1::Unrelated';
-- 
2.30.2