dev-perl/XML-DOM: Fix tests for '.' in @INC removal bug #623186

Bug: https://bugs.gentoo.org/623186
Package-Manager: Portage-2.3.24, Repoman-2.3.6

diff --git a/dev-perl/XML-DOM/XML-DOM-1.460.0-r1.ebuild b/dev-perl/XML-DOM/XML-DOM-1.460.0-r1.ebuild
new file mode 100644 (file)
index 0000000..9315497
--- /dev/null
+++ b/dev-perl/XML-DOM/XML-DOM-1.460.0-r1.ebuild
@@ -0,0 +1,27 @@
+# Copyright 1999-2018 Gentoo Foundation
+# Distributed under the terms of the GNU General Public License v2
+
+EAPI=6
+
+DIST_AUTHOR=TJMATHER
+DIST_VERSION=1.46
+inherit perl-module
+
+DESCRIPTION="A Perl module for an DOM Level 1 compliant interface"
+
+SLOT="0"
+KEYWORDS="~alpha ~amd64 ~arm ~arm64 ~hppa ~ia64 ~ppc ~ppc64 ~sparc ~x86 ~amd64-fbsd ~x86-fbsd ~amd64-linux ~x86-linux ~ppc-macos ~x86-macos ~sparc-solaris ~x86-solaris"
+IUSE="test"
+
+RDEPEND="
+       dev-perl/libwww-perl
+       >=dev-perl/XML-Parser-2.300.0
+       dev-perl/XML-RegExp
+"
+DEPEND="${RDEPEND}
+       virtual/perl-ExtUtils-MakeMaker
+       test? (
+               >=dev-perl/libxml-perl-0.70.0
+       )
+"
+PATCHES=("${FILESDIR}/${PN}-1.46-nodotinc.patch")

diff --git a/dev-perl/XML-DOM/files/XML-DOM-1.46-nodotinc.patch b/dev-perl/XML-DOM/files/XML-DOM-1.46-nodotinc.patch
new file mode 100644 (file)
index 0000000..3d2078a
--- /dev/null
+++ b/dev-perl/XML-DOM/files/XML-DOM-1.46-nodotinc.patch
@@ -0,0 +1,156 @@
+From 6618c46e46be864dc7f13b217e2912c79bd4b61b Mon Sep 17 00:00:00 2001
+From: Kent Fredric <kentnl@gentoo.org>
+Date: Sun, 25 Mar 2018 22:48:44 +1300
+Subject: Patch test suite for '.' in @INC removal in 5.26 and greater.
+
+Bug: https://bugs.gentoo.org/623186
+---
+ MANIFEST                                     | 4 ++--
+ t/dom_astress.t                              | 1 +
+ t/dom_attr.t                                 | 1 +
+ t/dom_cdata.t                                | 1 +
+ t/dom_encode.t                               | 1 +
+ t/dom_jp_astress.t                           | 1 +
+ t/dom_jp_attr.t                              | 1 +
+ t/dom_jp_cdata.t                             | 1 +
+ t/dom_jp_modify.t                            | 1 +
+ t/dom_modify.t                               | 1 +
+ CheckAncestors.pm => t/lib/CheckAncestors.pm | 0
+ CmpDOM.pm => t/lib/CmpDOM.pm                 | 0
+ 12 files changed, 11 insertions(+), 2 deletions(-)
+ rename CheckAncestors.pm => t/lib/CheckAncestors.pm (100%)
+ rename CmpDOM.pm => t/lib/CmpDOM.pm (100%)
+
+diff --git a/MANIFEST b/MANIFEST
+index fe947b3..72eeb85 100644
+--- a/MANIFEST
++++ b/MANIFEST
+@@ -1,7 +1,7 @@
+ BUGS
+ Changes
+-CheckAncestors.pm             Used by test cases in t/
+-CmpDOM.pm                     Used by test cases in t/
++t/lib/CheckAncestors.pm               Used by test cases in t/
++t/lib/CmpDOM.pm                       Used by test cases in t/
+ FAQ.xml
+ MANIFEST                      This file.
+ Makefile.PL
+diff --git a/t/dom_astress.t b/t/dom_astress.t
+index 2bc7a6a..ac11c96 100644
+--- a/t/dom_astress.t
++++ b/t/dom_astress.t
+@@ -9,6 +9,7 @@
+ BEGIN {print "1..4\n";}
+ END {print "not ok 1\n" unless $loaded;}
+ use XML::DOM;
++use lib 't/lib';
+ use CmpDOM;
+ $loaded = 1;
+ print "ok 1\n";
+diff --git a/t/dom_attr.t b/t/dom_attr.t
+index afbea05..683f727 100644
+--- a/t/dom_attr.t
++++ b/t/dom_attr.t
+@@ -1,6 +1,7 @@
+ BEGIN {print "1..23\n";}
+ END {print "not ok 1\n" unless $loaded;}
+ use XML::DOM;
++use lib 't/lib';
+ use CheckAncestors;
+ use CmpDOM;
+ $loaded = 1;
+diff --git a/t/dom_cdata.t b/t/dom_cdata.t
+index 3f4a47b..a7692df 100644
+--- a/t/dom_cdata.t
++++ b/t/dom_cdata.t
+@@ -1,6 +1,7 @@
+ BEGIN {print "1..3\n";}
+ END {print "not ok 1\n" unless $loaded;}
+ use XML::DOM;
++use lib 't/lib';
+ use CheckAncestors;
+ use CmpDOM;
+ $loaded = 1;
+diff --git a/t/dom_encode.t b/t/dom_encode.t
+index 71519a4..60abfca 100644
+--- a/t/dom_encode.t
++++ b/t/dom_encode.t
+@@ -1,6 +1,7 @@
+ BEGIN {print "1..3\n";}
+ END {print "not ok 1\n" unless $loaded;}
+ use XML::DOM;
++use lib 't/lib';
+ use CheckAncestors;
+ use CmpDOM;
+ $loaded = 1;
+diff --git a/t/dom_jp_astress.t b/t/dom_jp_astress.t
+index 04c66b6..19c1b21 100644
+--- a/t/dom_jp_astress.t
++++ b/t/dom_jp_astress.t
+@@ -1,6 +1,7 @@
+ BEGIN {print "1..4\n";}\r
+ END {print "not ok 1\n" unless $loaded;}\r
+ use XML::DOM;\r
++use lib 't/lib';\r
+ use CmpDOM;\r
+ $loaded = 1;\r
+ print "ok 1\n";\r
+diff --git a/t/dom_jp_attr.t b/t/dom_jp_attr.t
+index 4ecca27..eb37091 100644
+--- a/t/dom_jp_attr.t
++++ b/t/dom_jp_attr.t
+@@ -1,6 +1,7 @@
+ BEGIN {print "1..23\n";}
+ END {print "not ok 1\n" unless $loaded;}
+ use XML::DOM;
++use lib 't/lib';
+ use CheckAncestors;
+ use CmpDOM;
+ use utf8;
+diff --git a/t/dom_jp_cdata.t b/t/dom_jp_cdata.t
+index e512fc5..7c4dcb1 100644
+--- a/t/dom_jp_cdata.t
++++ b/t/dom_jp_cdata.t
+@@ -1,6 +1,7 @@
+ BEGIN {print "1..3\n";}
+ END {print "not ok 1\n" unless $loaded;}
+ use XML::DOM;
++use lib 't/lib';
+ use CheckAncestors;
+ use CmpDOM;
+ use utf8;
+diff --git a/t/dom_jp_modify.t b/t/dom_jp_modify.t
+index a749c42..049dfa1 100644
+--- a/t/dom_jp_modify.t
++++ b/t/dom_jp_modify.t
+@@ -1,6 +1,7 @@
+ BEGIN {print "1..16\n";}
+ END {print "not ok 1\n" unless $loaded;}
+ use XML::DOM;
++use lib 't/lib';
+ use CheckAncestors;
+ use utf8;
+ $loaded = 1;
+diff --git a/t/dom_modify.t b/t/dom_modify.t
+index ba74475..42058a6 100644
+--- a/t/dom_modify.t
++++ b/t/dom_modify.t
+@@ -1,6 +1,7 @@
+ BEGIN {print "1..16\n";}
+ END {print "not ok 1\n" unless $loaded;}
+ use XML::DOM;
++use lib 't/lib';
+ use CheckAncestors;
+ $loaded = 1;
+ print "ok 1\n";
+diff --git a/CheckAncestors.pm b/t/lib/CheckAncestors.pm
+similarity index 100%
+rename from CheckAncestors.pm
+rename to t/lib/CheckAncestors.pm
+diff --git a/CmpDOM.pm b/t/lib/CmpDOM.pm
+similarity index 100%
+rename from CmpDOM.pm
+rename to t/lib/CmpDOM.pm
+-- 
+2.16.2
+