1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
|
From dc9437c949a4f44ca8b36bbf974d6a49337c67b4 Mon Sep 17 00:00:00 2001
From: Kent Fredric <kentnl@gentoo.org>
Date: Sun, 1 Oct 2017 04:10:33 +1300
Subject: [PATCH] Fix tests failure on Perl 5.26+ with PERL_USE_UNSAFE_INC=0
Bug: https://github.com/miyagawa/CGI-Compile/issues/21
Bug-Gentoo: https://bugs.gentoo.org/614352
Bug-Debian: https://bugs.debian.org/871724
---
t/Capture.pm | 3 ++-
t/coderef_args.t | 3 ++-
t/compile.t | 3 ++-
t/data_end.t | 4 +++-
t/exit.t | 2 +-
t/local-SIG.t | 3 ++-
t/source.t | 3 ++-
t/source_filter.t | 3 ++-
t/warnings.t | 3 ++-
9 files changed, 18 insertions(+), 9 deletions(-)
diff --git a/t/Capture.pm b/t/Capture.pm
index 476f80d..2331b33 100644
--- a/t/Capture.pm
+++ b/t/Capture.pm
@@ -1,4 +1,5 @@
-package t::Capture;
+package # Hide from PAUSE
+ Capture;
use base qw(Exporter);
our @EXPORT = qw(capture_out);
diff --git a/t/coderef_args.t b/t/coderef_args.t
index 8d9c1b4..89720dd 100644
--- a/t/coderef_args.t
+++ b/t/coderef_args.t
@@ -1,5 +1,6 @@
use Test::More;
-use t::Capture;
+use lib 't';
+use Capture;
use CGI::Compile;
my $sub = CGI::Compile->compile("t/args.cgi");
diff --git a/t/compile.t b/t/compile.t
index db42283..f302f9b 100644
--- a/t/compile.t
+++ b/t/compile.t
@@ -1,6 +1,7 @@
use Test::More;
use Test::Requires qw(CGI);
-use t::Capture;
+use lib 't';
+use Capture;
use CGI::Compile;
#no warnings 'signal'; # for MSWin32
diff --git a/t/data_end.t b/t/data_end.t
index af468f7..175641f 100644
--- a/t/data_end.t
+++ b/t/data_end.t
@@ -1,6 +1,8 @@
use Test::More;
use CGI::Compile;
-use t::Capture;
+
+use lib 't';
+use Capture;
{
my $sub = CGI::Compile->compile("t/data.cgi");
diff --git a/t/exit.t b/t/exit.t
index b98b28a..2167b1c 100644
--- a/t/exit.t
+++ b/t/exit.t
@@ -1,8 +1,8 @@
use strict;
use Test::More tests => 2;
use CGI::Compile;
-use t::Capture;
use lib "t";
+use Capture;
use Exit;
my $sub = CGI::Compile->compile("t/exit.cgi");
diff --git a/t/local-SIG.t b/t/local-SIG.t
index b781c05..68f733e 100644
--- a/t/local-SIG.t
+++ b/t/local-SIG.t
@@ -1,6 +1,7 @@
#!perl
-use t::Capture;
+use lib 't';
+use Capture;
use CGI::Compile;
use POSIX qw(:signal_h);
diff --git a/t/source.t b/t/source.t
index e212244..b101632 100644
--- a/t/source.t
+++ b/t/source.t
@@ -1,6 +1,7 @@
use Test::More;
use CGI::Compile;
-use t::Capture;
+use lib 't';
+use Capture;
{
my $str =<<EOL;
diff --git a/t/source_filter.t b/t/source_filter.t
index 8b84e0c..51b11b2 100644
--- a/t/source_filter.t
+++ b/t/source_filter.t
@@ -1,6 +1,7 @@
use Test::More;
use Test::Requires qw(Switch);
-use t::Capture;
+use lib 't';
+use Capture;
use CGI::Compile;
my $sub = eval {
diff --git a/t/warnings.t b/t/warnings.t
index 5962aae..0d044cb 100644
--- a/t/warnings.t
+++ b/t/warnings.t
@@ -1,5 +1,6 @@
use Test::More;
-use t::Capture;
+use lib 't';
+use Capture;
use CGI::Compile;
my $sub = CGI::Compile->compile("t/warnings.cgi");
--
2.17.0
|
