mirror of
https://github.com/gentoo-mirror/gentoo.git
synced 2025-12-22 21:37:35 -08:00
64 lines
1.7 KiB
Diff
64 lines
1.7 KiB
Diff
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
|
|
|