dev-perl/Log-Agent: Fix '.' in @INC test failure bug #617050

Closes: https://bugs.gentoo.org/617050
Package-Manager: Portage-2.3.8, Repoman-2.3.3

2 files changed, 194 insertions, 1 deletions

diff --git a/dev-perl/Log-Agent/Log-Agent-1.1.0.ebuild b/dev-perl/Log-Agent/Log-Agent-1.1.0.ebuild
index 4ecc7bb82017..edcbc2a2ca92 100644
--- a/dev-perl/Log-Agent/Log-Agent-1.1.0.ebuild
+++ b/dev-perl/Log-Agent/Log-Agent-1.1.0.ebuild
@@ -19,5 +19,5 @@ DEPEND="${RDEPEND}
 	virtual/perl-ExtUtils-MakeMaker
 	test? ( virtual/perl-Test-Simple )
 "
-
+PATCHES=("${FILESDIR}/${P}-no-dot-inc.patch")
 DIST_TEST=do
diff --git a/dev-perl/Log-Agent/files/Log-Agent-1.1.0-no-dot-inc.patch b/dev-perl/Log-Agent/files/Log-Agent-1.1.0-no-dot-inc.patch
new file mode 100644
index 000000000000..e46c0bda2a7d
--- /dev/null
+++ b/dev-perl/Log-Agent/files/Log-Agent-1.1.0-no-dot-inc.patch
@@ -0,0 +1,193 @@
+From f85b4f6c097338ff07c5736fbe77dd09d2bca289 Mon Sep 17 00:00:00 2001
+From: Kent Fredric <kentnl@gentoo.org>
+Date: Thu, 26 Oct 2017 21:02:47 +1300
+Subject: Fix test failures due to '.' removal from @INC under Perl 5.26
+
+when PERL_USE_UNSAFE_INC=0
+
+Bug: https://bugs.gentoo.org/617050
+Bug: https://rt.cpan.org/Ticket/Display.html?id=121459
+Bug: https://github.com/mrogaski/Log-Agent/pull/13
+---
+ t/caller.t       | 2 +-
+ t/carp.pl        | 4 ++--
+ t/carp_default.t | 2 +-
+ t/carp_file.t    | 2 +-
+ t/carp_fork.t    | 2 +-
+ t/carp_silent.t  | 2 +-
+ t/default.t      | 2 +-
+ t/default_exp.t  | 2 +-
+ t/file.t         | 2 +-
+ t/fork.t         | 2 +-
+ t/priority.t     | 2 +-
+ t/tag_callback.t | 2 +-
+ t/tag_string.t   | 2 +-
+ 13 files changed, 14 insertions(+), 14 deletions(-)
+
+diff --git a/t/caller.t b/t/caller.t
+index 6a14aa6..feb3c2c 100644
+--- a/t/caller.t
++++ b/t/caller.t
+@@ -14,7 +14,7 @@
+ 
+ print "1..10\n";
+ 
+-require 't/code.pl';
++require './t/code.pl';
+ sub ok;
+ 
+ use Log::Agent;
+diff --git a/t/carp.pl b/t/carp.pl
+index a4327e1..352f7d6 100644
+--- a/t/carp.pl
++++ b/t/carp.pl
+@@ -14,10 +14,10 @@
+ 
+ print "1..11\n";
+ 
+-require 't/code.pl';
++require './t/code.pl';
+ sub ok;
+ 
+-my $FILE = "t/carp.pl";
++my $FILE = "./t/carp.pl";
+ 
+ package OTHER;
+ use Log::Agent;
+diff --git a/t/carp_default.t b/t/carp_default.t
+index 293ddb7..819e438 100644
+--- a/t/carp_default.t
++++ b/t/carp_default.t
+@@ -20,4 +20,4 @@ select(ORIG_STDOUT);
+ open(STDOUT, ">t/file.out") || die "can't redirect STDOUT: $!\n";
+ open(STDERR, ">t/file.err") || die "can't redirect STDOUT: $!\n";
+ 
+-do 't/carp.pl';
++do './t/carp.pl';
+diff --git a/t/carp_file.t b/t/carp_file.t
+index 9e5e9a3..8239d62 100644
+--- a/t/carp_file.t
++++ b/t/carp_file.t
+@@ -27,4 +27,4 @@ my $driver = Log::Agent::Driver::File->make(
+ );
+ logconfig(-driver => $driver);
+ 
+-do 't/carp.pl';
++do './t/carp.pl';
+diff --git a/t/carp_fork.t b/t/carp_fork.t
+index c81a86b..dcf8131 100644
+--- a/t/carp_fork.t
++++ b/t/carp_fork.t
+@@ -29,4 +29,4 @@ my $driver = Log::Agent::Driver::Fork->make(
+ );
+ logconfig(-driver => $driver);
+ 
+-do 't/carp.pl';
++do './t/carp.pl';
+diff --git a/t/carp_silent.t b/t/carp_silent.t
+index 6c7c8ca..c913308 100644
+--- a/t/carp_silent.t
++++ b/t/carp_silent.t
+@@ -14,7 +14,7 @@
+ 
+ print "1..2\n";
+ 
+-require 't/code.pl';
++require './t/code.pl';
+ sub ok;
+ 
+ use Log::Agent;
+diff --git a/t/default.t b/t/default.t
+index eadca93..73bab3a 100644
+--- a/t/default.t
++++ b/t/default.t
+@@ -14,7 +14,7 @@
+ 
+ print "1..4\n";
+ 
+-require 't/code.pl';
++require './t/code.pl';
+ sub ok;
+ 
+ use Log::Agent;
+diff --git a/t/default_exp.t b/t/default_exp.t
+index 5fc95b7..940e1eb 100644
+--- a/t/default_exp.t
++++ b/t/default_exp.t
+@@ -19,7 +19,7 @@
+ 
+ print "1..8\n";
+ 
+-require 't/code.pl';
++require './t/code.pl';
+ sub ok;
+ 
+ use Log::Agent;
+diff --git a/t/file.t b/t/file.t
+index 57caaba..e7487ee 100644
+--- a/t/file.t
++++ b/t/file.t
+@@ -15,7 +15,7 @@
+ use Test::More;
+ use Log::Agent;
+ require Log::Agent::Driver::File;
+-require 't/common.pl';
++require './t/common.pl';
+ 
+ BEGIN { plan tests => 38 }
+ 
+diff --git a/t/fork.t b/t/fork.t
+index a943a89..5726ba2 100644
+--- a/t/fork.t
++++ b/t/fork.t
+@@ -14,7 +14,7 @@
+ 
+ use strict;
+ use Test;
+-require 't/common.pl';
++require './t/common.pl';
+ 
+ BEGIN { plan tests => 19 }
+ 
+diff --git a/t/priority.t b/t/priority.t
+index 3e5be89..3f6b2c4 100644
+--- a/t/priority.t
++++ b/t/priority.t
+@@ -14,7 +14,7 @@
+ 
+ print "1..5\n";
+ 
+-require 't/code.pl';
++require './t/code.pl';
+ sub ok;
+ 
+ use Log::Agent;
+diff --git a/t/tag_callback.t b/t/tag_callback.t
+index 64a1bd4..39b749d 100644
+--- a/t/tag_callback.t
++++ b/t/tag_callback.t
+@@ -12,7 +12,7 @@
+ #
+ ##########################################################################
+ 
+-require 't/code.pl';
++require './t/code.pl';
+ sub ok;
+ 
+ eval "require Callback";
+diff --git a/t/tag_string.t b/t/tag_string.t
+index 843fc10..b4851c2 100644
+--- a/t/tag_string.t
++++ b/t/tag_string.t
+@@ -14,7 +14,7 @@
+ 
+ print "1..2\n";
+ 
+-require 't/code.pl';
++require './t/code.pl';
+ sub ok;
+ 
+ use Log::Agent;
+-- 
+2.14.3
+