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
|
From bad1310f14223c12c1d8933ef5de17fd323374f5 Mon Sep 17 00:00:00 2001
From: Kent Fredric <kentnl@gentoo.org>
Date: Wed, 29 Nov 2017 19:07:38 +1300
Subject: Fix tests failing under Perl 5.26 w/ PERL_USE_UNSAFE_INC=0
require t/foo.pl
Used to work as a result of the assumed '.' at the end of `@INC`.
This is no longer true under Perl 5.26 without PERL_USE_UNSAFE_INC=1
in your environment (which gets defaulted on under CPAN installers and
under Test::Harness if not explicitly disabled, and will be hard-off
in Perl 5.30)
Bug: https://bugs.gentoo.org/623002
Bug: https://github.com/dap/Net-XMPP/pull/16
---
t/iq.t | 2 +-
t/jid.t | 2 +-
t/message.t | 2 +-
t/packet_iqauth.t | 2 +-
t/packet_iqroster.t | 2 +-
t/presence.t | 2 +-
t/rawxml.t | 2 +-
t/roster.t | 2 +-
8 files changed, 8 insertions(+), 8 deletions(-)
diff --git a/t/iq.t b/t/iq.t
index 9174e6d..1742d6c 100644
--- a/t/iq.t
+++ b/t/iq.t
@@ -3,7 +3,7 @@ use Test::More tests=>115;
BEGIN{ use_ok( "Net::XMPP" ); }
-require "t/mytestlib.pl";
+require "./t/mytestlib.pl";
my $debug = Net::XMPP::Debug->new(setdefault=>1,
level=>-1,
diff --git a/t/jid.t b/t/jid.t
index dc07440..fa426a4 100644
--- a/t/jid.t
+++ b/t/jid.t
@@ -3,7 +3,7 @@ use Test::More tests=>15;
BEGIN{ use_ok( "Net::XMPP" ); }
-require "t/mytestlib.pl";
+require "./t/mytestlib.pl";
my $jid = Net::XMPP::JID->new('host.com/xxx@yyy.com/zzz');
ok( defined($jid), "new()" );
diff --git a/t/message.t b/t/message.t
index 70bcef8..7c2f554 100644
--- a/t/message.t
+++ b/t/message.t
@@ -3,7 +3,7 @@ use Test::More tests=>136;
BEGIN{ use_ok( "Net::XMPP" ); }
-require "t/mytestlib.pl";
+require "./t/mytestlib.pl";
my $debug = Net::XMPP::Debug->new(setdefault=>1,
level=>-1,
diff --git a/t/packet_iqauth.t b/t/packet_iqauth.t
index 748917b..f80b5ae 100644
--- a/t/packet_iqauth.t
+++ b/t/packet_iqauth.t
@@ -3,7 +3,7 @@ use Test::More tests=>55;
BEGIN{ use_ok( "Net::XMPP" ); }
-require "t/mytestlib.pl";
+require "./t/mytestlib.pl";
my $debug = Net::XMPP::Debug->new(setdefault=>1,
level=>-1,
diff --git a/t/packet_iqroster.t b/t/packet_iqroster.t
index 706e5f0..4bd48e8 100644
--- a/t/packet_iqroster.t
+++ b/t/packet_iqroster.t
@@ -3,7 +3,7 @@ use Test::More tests=>57;
BEGIN{ use_ok( "Net::XMPP" ); }
-require "t/mytestlib.pl";
+require "./t/mytestlib.pl";
my $debug = Net::XMPP::Debug->new(setdefault=>1,
level=>-1,
diff --git a/t/presence.t b/t/presence.t
index ce6980d..14f9516 100644
--- a/t/presence.t
+++ b/t/presence.t
@@ -3,7 +3,7 @@ use Test::More tests=>132;
BEGIN{ use_ok( "Net::XMPP" ); }
-require "t/mytestlib.pl";
+require "./t/mytestlib.pl";
my $debug = Net::XMPP::Debug->new(setdefault=>1,
level=>-1,
diff --git a/t/rawxml.t b/t/rawxml.t
index b4f091b..43b6380 100644
--- a/t/rawxml.t
+++ b/t/rawxml.t
@@ -3,7 +3,7 @@ use Test::More tests=>54;
BEGIN{ use_ok( "Net::XMPP" ); }
-require "t/mytestlib.pl";
+require "./t/mytestlib.pl";
my $message = Net::XMPP::Message->new();
ok( defined($message), "new()");
diff --git a/t/roster.t b/t/roster.t
index 19ed87b..a365d2e 100644
--- a/t/roster.t
+++ b/t/roster.t
@@ -11,7 +11,7 @@ BEGIN {
}
BEGIN{ use_ok( "Net::XMPP" ); }
-require "t/mytestlib.pl";
+require "./t/mytestlib.pl";
my $debug = Net::XMPP::Debug->new(setdefault=>1,
level=>-1,
--
2.14.3
|
