dev-perl/Net-Amazon: Fix tests without '.' in @INC bug #617158

Closes: https://bugs.gentoo.org/617158
Package-Manager: Portage-2.3.14, Repoman-2.3.6

1 files changed, 298 insertions, 0 deletions

diff --git a/dev-perl/Net-Amazon/files/Net-Amazon-0.62-no-dot-inc.patch b/dev-perl/Net-Amazon/files/Net-Amazon-0.62-no-dot-inc.patch
new file mode 100644
index 000000000000..e98192380efe
--- /dev/null
+++ b/dev-perl/Net-Amazon/files/Net-Amazon-0.62-no-dot-inc.patch
@@ -0,0 +1,298 @@
+From d51b0583bea818ed483ff26ce1e61081183f6665 Mon Sep 17 00:00:00 2001
+From: Kent Fredric <kentnl@gentoo.org>
+Date: Sun, 26 Nov 2017 17:12:34 +1300
+Subject: Fix test failures due to require() needing a non-@INC path
+
+Due to '.' removal from @INC, "require t/foo" no longer loads ./t/foo
+
+Bug: https://bugs.gentoo.org/617158
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=121476
+Bug: https://github.com/boumenot/p5-Net-Amazon/pull/8
+---
+ t/010Artist.t       | 3 ++-
+ t/011Locale.t       | 3 ++-
+ t/012Keyword.t      | 3 ++-
+ t/013Seller.t       | 3 ++-
+ t/015Exchange.t     | 3 ++-
+ t/017Author.t       | 3 ++-
+ t/018Actor.t        | 3 ++-
+ t/019MusicLabel.t   | 3 ++-
+ t/022Director.t     | 3 ++-
+ t/023Title.t        | 3 ++-
+ t/024signature.t    | 3 ++-
+ t/025cache.t        | 3 ++-
+ t/027MP3Downloads.t | 3 ++-
+ 13 files changed, 26 insertions(+), 13 deletions(-)
+
+diff --git a/t/010Artist.t b/t/010Artist.t
+index 0272c28..8245908 100644
+--- a/t/010Artist.t
++++ b/t/010Artist.t
+@@ -5,6 +5,7 @@ use warnings;
+ use strict;
+ 
+ use Test::More tests => 23;
++use File::Spec::Functions qw( rel2abs );
+ BEGIN { use_ok('Net::Amazon') };
+ 
+ #use Log::Log4perl qw(:easy);
+@@ -16,7 +17,7 @@ use Net::Amazon::Request::Artist;
+ ################################################################
+ # Setup
+ ################################################################
+-  my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .);
++  my($TESTDIR) = map { -d $_ ? rel2abs($_) : () } qw(t ../t .);
+   require "$TESTDIR/init.pl";
+   my $CANNED = "$TESTDIR/canned";
+ ################################################################
+diff --git a/t/011Locale.t b/t/011Locale.t
+index 473a7e1..96df821 100644
+--- a/t/011Locale.t
++++ b/t/011Locale.t
+@@ -8,12 +8,13 @@ use strict;
+ 
+ use Net::Amazon;
+ use Net::Amazon::Request::ASIN;
++use File::Spec::Functions qw( rel2abs );
+ use Test::More tests => 5;
+ 
+ ################################################################
+ # Setup
+ ################################################################
+-  my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .);
++  my($TESTDIR) = map { -d $_ ? rel2abs($_) : () } qw(t ../t .);
+   require "$TESTDIR/init.pl";
+   my $CANNED = "$TESTDIR/canned";
+ ################################################################
+diff --git a/t/012Keyword.t b/t/012Keyword.t
+index 82c25ab..ded941d 100644
+--- a/t/012Keyword.t
++++ b/t/012Keyword.t
+@@ -9,12 +9,13 @@ use strict;
+ use Net::Amazon;
+ use Net::Amazon::Property;
+ use Net::Amazon::Request::Keyword;
++use File::Spec::Functions qw( rel2abs );
+ use Test::More tests => 12;
+ 
+ ################################################################
+ # Setup
+ ################################################################
+-  my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .);
++  my($TESTDIR) = map { -d $_ ? rel2abs($_) : () } qw(t ../t .);
+   require "$TESTDIR/init.pl";
+   my $CANNED = "$TESTDIR/canned";
+ ################################################################
+diff --git a/t/013Seller.t b/t/013Seller.t
+index fc36778..986bd8d 100644
+--- a/t/013Seller.t
++++ b/t/013Seller.t
+@@ -5,6 +5,7 @@
+ use warnings;
+ use strict;
+ 
++use File::Spec::Functions qw( rel2abs );
+ use Test::More tests => 25;
+ use Net::Amazon;
+ use Net::Amazon::Request::Seller;
+@@ -14,7 +15,7 @@ use Net::Amazon::Request::Seller;
+ ################################################################
+ # Setup
+ ################################################################
+-  my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .);
++  my($TESTDIR) = map { -d $_ ? rel2abs($_) : () } qw(t ../t .);
+   require "$TESTDIR/init.pl";
+   my $CANNED = "$TESTDIR/canned";
+ ################################################################
+diff --git a/t/015Exchange.t b/t/015Exchange.t
+index 4f8610c..7db514d 100644
+--- a/t/015Exchange.t
++++ b/t/015Exchange.t
+@@ -5,6 +5,7 @@
+ use warnings;
+ use strict;
+ 
++use File::Spec::Functions qw( rel2abs );
+ use Test::More tests => 17;
+ use Net::Amazon;
+ use Net::Amazon::Result::Seller::Listing;
+@@ -14,7 +15,7 @@ use Log::Log4perl qw(:easy);
+ ################################################################
+ # Setup
+ ################################################################
+-  my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .);
++  my($TESTDIR) = map { -d $_ ? rel2abs($_) : () } qw(t ../t .);
+   require "$TESTDIR/init.pl";
+   my $CANNED = "$TESTDIR/canned";
+ ################################################################
+diff --git a/t/017Author.t b/t/017Author.t
+index ebf3d3b..a6ebc1f 100644
+--- a/t/017Author.t
++++ b/t/017Author.t
+@@ -4,6 +4,7 @@
+ use warnings;
+ use strict;
+ 
++use File::Spec::Functions qw( rel2abs );
+ use Test::More tests => 30;
+ BEGIN { use_ok('Net::Amazon') };
+ 
+@@ -16,7 +17,7 @@ use Net::Amazon::Request::Author;
+ ################################################################
+ # Setup
+ ################################################################
+-  my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .);
++  my($TESTDIR) = map { -d $_ ? rel2abs($_) : () } qw(t ../t .);
+   require "$TESTDIR/init.pl";
+   my $CANNED = "$TESTDIR/canned";
+ ################################################################
+diff --git a/t/018Actor.t b/t/018Actor.t
+index 26379d9..7106f20 100644
+--- a/t/018Actor.t
++++ b/t/018Actor.t
+@@ -4,6 +4,7 @@
+ use warnings;
+ use strict;
+ 
++use File::Spec::Functions qw( rel2abs );
+ use Test::More tests => 23;
+ BEGIN { use_ok('Net::Amazon') };
+ 
+@@ -16,7 +17,7 @@ use Net::Amazon::Request::Actor;
+ ################################################################
+ # Setup
+ ################################################################
+-  my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .);
++  my($TESTDIR) = map { -d $_ ? rel2abs($_) : () } qw(t ../t .);
+   require "$TESTDIR/init.pl";
+   my $CANNED = "$TESTDIR/canned";
+ ################################################################
+diff --git a/t/019MusicLabel.t b/t/019MusicLabel.t
+index e693798..508da3b 100644
+--- a/t/019MusicLabel.t
++++ b/t/019MusicLabel.t
+@@ -4,6 +4,7 @@
+ use warnings;
+ use strict;
+ 
++use File::Spec::Functions qw( rel2abs );
+ use Test::More tests => 14;
+ BEGIN { use_ok('Net::Amazon') };
+ 
+@@ -16,7 +17,7 @@ use Net::Amazon::Request::MusicLabel;
+ ################################################################
+ # Setup
+ ################################################################
+-  my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .);
++  my($TESTDIR) = map { -d $_ ? rel2abs($_) : () } qw(t ../t .);
+   require "$TESTDIR/init.pl";
+   my $CANNED = "$TESTDIR/canned";
+ ################################################################
+diff --git a/t/022Director.t b/t/022Director.t
+index f7c103f..dff6fbe 100644
+--- a/t/022Director.t
++++ b/t/022Director.t
+@@ -4,6 +4,7 @@
+ use warnings;
+ use strict;
+ 
++use File::Spec::Functions qw( rel2abs );
+ use Test::More tests => 23;
+ BEGIN { use_ok('Net::Amazon') };
+ 
+@@ -16,7 +17,7 @@ use Net::Amazon::Request::Director;
+ ################################################################
+ # Setup
+ ################################################################
+-  my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .);
++  my($TESTDIR) = map { -d $_ ? rel2abs($_) : () } qw(t ../t .);
+   require "$TESTDIR/init.pl";
+   my $CANNED = "$TESTDIR/canned";
+ ################################################################
+diff --git a/t/023Title.t b/t/023Title.t
+index fc72090..9ef9da4 100644
+--- a/t/023Title.t
++++ b/t/023Title.t
+@@ -4,6 +4,7 @@
+ use warnings;
+ use strict;
+ 
++use File::Spec::Functions qw( rel2abs );
+ use Test::More tests => 4;
+ BEGIN { use_ok('Net::Amazon') };
+ 
+@@ -16,7 +17,7 @@ use Net::Amazon::Request::Title;
+ ################################################################
+ # Setup
+ ################################################################
+-  my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .);
++  my($TESTDIR) = map { -d $_ ? rel2abs($_) : () } qw(t ../t .);
+   require "$TESTDIR/init.pl";
+   my $CANNED = "$TESTDIR/canned";
+ ################################################################
+diff --git a/t/024signature.t b/t/024signature.t
+index ca0c9e9..aa15767 100644
+--- a/t/024signature.t
++++ b/t/024signature.t
+@@ -6,6 +6,7 @@ use strict;
+ use utf8; # Needed to include utf8 strings
+ use Encode;
+ 
++use File::Spec::Functions qw( rel2abs );
+ use Test::More tests => 6;
+ BEGIN { use_ok('Net::Amazon') };
+ 
+@@ -19,7 +20,7 @@ use URI;
+ ################################################################
+ # Setup
+ ################################################################
+-  my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .);
++  my($TESTDIR) = map { -d $_ ? rel2abs($_) : () } qw(t ../t .);
+   require "$TESTDIR/init.pl";
+   my $CANNED = "$TESTDIR/canned";
+ ################################################################
+diff --git a/t/025cache.t b/t/025cache.t
+index ba589f1..45283c3 100644
+--- a/t/025cache.t
++++ b/t/025cache.t
+@@ -4,6 +4,7 @@
+ use warnings;
+ use strict;
+ 
++use File::Spec::Functions qw( rel2abs );
+ use Test::More tests => 6;
+ BEGIN { use_ok('Net::Amazon'); use_ok('Log::Log4perl'); }
+ 
+@@ -20,7 +21,7 @@ Log::Log4perl->easy_init({level => $ALL, file => ">>$log_file"});
+ ################################################################
+ # Setup
+ ################################################################
+-  my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .);
++  my($TESTDIR) = map { -d $_ ? rel2abs($_) : () } qw(t ../t .);
+   require "$TESTDIR/init.pl";
+ 
+ SKIP: {
+diff --git a/t/027MP3Downloads.t b/t/027MP3Downloads.t
+index 66f9bda..3e3b5fc 100644
+--- a/t/027MP3Downloads.t
++++ b/t/027MP3Downloads.t
+@@ -4,6 +4,7 @@
+ use warnings;
+ use strict;
+ 
++use File::Spec::Functions qw( rel2abs );
+ use Test::More tests => 17;
+ BEGIN { use_ok('Net::Amazon') };
+ 
+@@ -16,7 +17,7 @@ use Net::Amazon::Request::MP3Downloads;
+ ################################################################
+ # Setup
+ ################################################################
+-  my($TESTDIR) = map { -d $_ ? $_ : () } qw(t ../t .);
++  my($TESTDIR) = map { -d $_ ? rel2abs($_) : () } qw(t ../t .);
+   require "$TESTDIR/init.pl";
+   my $CANNED = "$TESTDIR/canned";
+ ################################################################
+-- 
+2.14.3
+