commit:     f894f2cec57d9eb8e85e1b48e38a39c4c65b5596
Author:     Kent Fredric <kentnl <AT> gentoo <DOT> org>
AuthorDate: Mon Oct 30 07:50:33 2017 +0000
Commit:     Kent Fredric <kentnl <AT> gentoo <DOT> org>
CommitDate: Mon Oct 30 07:50:57 2017 +0000
URL:        https://gitweb.gentoo.org/repo/gentoo.git/commit/?id=f894f2ce

dev-perl/Module-Info: Fix '.' in @INC test failures, bug #617110

Bug: https://bugs.gentoo.org/617110
Package-Manager: Portage-2.3.8, Repoman-2.3.3

 dev-perl/Module-Info/Module-Info-0.370.0-r1.ebuild |  3 +-
 .../files/Module-Info-0.370.0-no-dot-inc.patch     | 63 ++++++++++++++++++++++
 2 files changed, 65 insertions(+), 1 deletion(-)

diff --git a/dev-perl/Module-Info/Module-Info-0.370.0-r1.ebuild 
b/dev-perl/Module-Info/Module-Info-0.370.0-r1.ebuild
index f2f6294b5a9..2db9e5994a9 100644
--- a/dev-perl/Module-Info/Module-Info-0.370.0-r1.ebuild
+++ b/dev-perl/Module-Info/Module-Info-0.370.0-r1.ebuild
@@ -1,4 +1,4 @@
-# Copyright 1999-2016 Gentoo Foundation
+# Copyright 1999-2017 Gentoo Foundation
 # Distributed under the terms of the GNU General Public License v2
 
 EAPI=6
@@ -21,6 +21,7 @@ RDEPEND="
 DEPEND="${RDEPEND}
        virtual/perl-ExtUtils-MakeMaker
 "
+PATCHES=("${FILESDIR}/${PN}-0.370.0-no-dot-inc.patch")
 src_test() {
        perl_rm_files "t/zz_pod.t" "t/zy_pod_coverage.t"
        perl-module_src_test

diff --git a/dev-perl/Module-Info/files/Module-Info-0.370.0-no-dot-inc.patch 
b/dev-perl/Module-Info/files/Module-Info-0.370.0-no-dot-inc.patch
new file mode 100644
index 00000000000..39a70cc5ff8
--- /dev/null
+++ b/dev-perl/Module-Info/files/Module-Info-0.370.0-no-dot-inc.patch
@@ -0,0 +1,63 @@
+From 35d199fe62f7185ac03fec4cd1cb06aaf21f0172 Mon Sep 17 00:00:00 2001
+From: Kent Fredric <ken...@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
+

Reply via email to