blob: 39a70cc5ff819ca31c75fa8b90ab71ce5c7a51f7 (
plain)
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
|
From 35d199fe62f7185ac03fec4cd1cb06aaf21f0172 Mon Sep 17 00:00:00 2001
From: Kent Fredric <kentnl@gentoo.org>
Date: Mon, 30 Oct 2017 20:07:40 +1300
Subject: Fix test failures without '.' in @INC on Perl 5.26
Where: PERL_USE_UNSAFE_INC=0
Bug: https://bugs.gentoo.org/617110
Bug: https://rt.cpan.org/Ticket/Display.html?id=121035
Bug: https://github.com/neilb/Module-Info/pull/3
---
t/Module-Info.t | 4 ++--
t/lib/Foo.pm | 8 ++++----
2 files changed, 6 insertions(+), 6 deletions(-)
diff --git a/t/Module-Info.t b/t/Module-Info.t
index bb62479..5c59214 100644
--- a/t/Module-Info.t
+++ b/t/Module-Info.t
@@ -203,8 +203,8 @@ SKIP: {
my @mods = $module->modules_used;
is( @mods, 8, 'modules_used' );
is_deeply( [sort @mods],
- [sort qw(strict vars Carp Exporter t/lib/Bar.pm t/lib/NotHere.pm
- t/lib/Foo.pm lib)] );
+ [sort qw(strict vars Carp Exporter ./t/lib/Bar.pm ./t/lib/NotHere.pm
+ ./t/lib/Foo.pm lib)] );
$module->name('Foo');
my @isa = $module->superclasses;
diff --git a/t/lib/Foo.pm b/t/lib/Foo.pm
index 956a79f..2602df2 100644
--- a/t/lib/Foo.pm
+++ b/t/lib/Foo.pm
@@ -2,7 +2,7 @@ package Foo;
use strict;
require Exporter;
-require "t/lib/Foo.pm";
+require "./t/lib/Foo.pm";
use vars qw(@ISA $VERSION);
$VERSION = 7.254;
@@ -56,13 +56,13 @@ sub croak {
return sub {
main::wibble('call insde anon sub inside sub');
- require 't/lib/NotHere.pm';
+ require './t/lib/NotHere.pm';
}
}
BEGIN {
- require 't/lib/Bar.pm';
+ require './t/lib/Bar.pm';
}
-my $mod = 't/lib/Bar.pm';
+my $mod = './t/lib/Bar.pm';
require $mod;
--
2.14.3
|