From f9f48bd53a97ffa57155009f9612cb8420c63377 Mon Sep 17 00:00:00 2001
From: Kent Fredric <kentnl@gentoo.org>
Date: Tue, 20 Jun 2017 03:18:10 +1200
Subject: [PATCH] dev-perl/PPI: Fix test failure without '.' in @INC

- Apply patch supplied upstream for t/marpa.t
- Fix wrongly normalized version.

Package-Manager: Portage-2.3.6, Repoman-2.3.2
---
 .../{PPI-1.224.ebuild => PPI-1.224.0.ebuild}  |  1 +
 .../files/PPI-1.224.0-t-marpa-dot-inc.patch   | 27 +++++++++++++++++++
 dev-perl/PPI/metadata.xml                     |  1 -
 3 files changed, 28 insertions(+), 1 deletion(-)
 rename dev-perl/PPI/{PPI-1.224.ebuild => PPI-1.224.0.ebuild} (95%)
 create mode 100644 dev-perl/PPI/files/PPI-1.224.0-t-marpa-dot-inc.patch

diff --git a/dev-perl/PPI/PPI-1.224.ebuild b/dev-perl/PPI/PPI-1.224.0.ebuild
similarity index 95%
rename from dev-perl/PPI/PPI-1.224.ebuild
rename to dev-perl/PPI/PPI-1.224.0.ebuild
index 95145cb7dadd..2af6125c1c56 100644
--- a/dev-perl/PPI/PPI-1.224.ebuild
+++ b/dev-perl/PPI/PPI-1.224.0.ebuild
@@ -36,3 +36,4 @@ DEPEND="${RDEPEND}
 		>=dev-perl/Test-Warn-0.300.0
 	)
 "
+PATCHES=("${FILESDIR}/${P}-t-marpa-dot-inc.patch")
diff --git a/dev-perl/PPI/files/PPI-1.224.0-t-marpa-dot-inc.patch b/dev-perl/PPI/files/PPI-1.224.0-t-marpa-dot-inc.patch
new file mode 100644
index 000000000000..2a02e1d71dc9
--- /dev/null
+++ b/dev-perl/PPI/files/PPI-1.224.0-t-marpa-dot-inc.patch
@@ -0,0 +1,27 @@
+From 74e2e77fdce3e2f366342ad736c25e49379d2013 Mon Sep 17 00:00:00 2001
+From: Kent Fredric <kentfredric@gmail.com>
+Date: Tue, 20 Jun 2017 03:04:48 +1200
+Subject: [PATCH] t/marpa.t: Fix test reliance on '.' in @INC
+
+Fixes https://github.com/adamkennedy/PPI/issues/200
+---
+ t/marpa.t | 3 ++-
+ 1 file changed, 2 insertions(+), 1 deletion(-)
+
+diff --git a/t/marpa.t b/t/marpa.t
+index a25fc2e..6e79003 100644
+--- a/t/marpa.t
++++ b/t/marpa.t
+@@ -2,7 +2,8 @@
+ 
+ # Unit testing for PPI::Token::Unknown
+ 
+-use t::lib::PPI::Test::pragmas;
++use lib 't/lib';
++use PPI::Test::pragmas;
+ use Test::More tests => 23 + ( $ENV{AUTHOR_TESTING} ? 1 : 0 );
+ use B 'perlstring';
+ 
+-- 
+2.13.1
+
diff --git a/dev-perl/PPI/metadata.xml b/dev-perl/PPI/metadata.xml
index 8f20830635c0..b16f7f1afbb9 100644
--- a/dev-perl/PPI/metadata.xml
+++ b/dev-perl/PPI/metadata.xml
@@ -17,7 +17,6 @@
     <remote-id type="cpan-module">PPI::Element</remote-id>
     <remote-id type="cpan-module">PPI::Exception</remote-id>
     <remote-id type="cpan-module">PPI::Exception::ParserRejection</remote-id>
-    <remote-id type="cpan-module">PPI::Exception::ParserTimeout</remote-id>
     <remote-id type="cpan-module">PPI::Find</remote-id>
     <remote-id type="cpan-module">PPI::Lexer</remote-id>
     <remote-id type="cpan-module">PPI::Node</remote-id>
-- 
2.26.2