From f85b4f6c097338ff07c5736fbe77dd09d2bca289 Mon Sep 17 00:00:00 2001 From: Kent Fredric 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