Fixes load_plugin error via Moose::Meta::Class (#307869). Thanks to Jason Mills

(Portage version: 2.2_rc64/cvs/Linux x86_64)

3 files changed, 69 insertions, 2 deletions

diff --git a/dev-perl/Devel-REPL/ChangeLog b/dev-perl/Devel-REPL/ChangeLog
index 5483ec008950..8f4c02bae22f 100644
--- a/dev-perl/Devel-REPL/ChangeLog
+++ b/dev-perl/Devel-REPL/ChangeLog
@@ -1,6 +1,13 @@
 # ChangeLog for dev-perl/Devel-REPL
-# Copyright 1999-2009 Gentoo Foundation; Distributed under the GPL v2
-# $Header: /var/cvsroot/gentoo-x86/dev-perl/Devel-REPL/ChangeLog,v 1.4 2009/09/07 09:13:13 tove Exp $
+# Copyright 1999-2010 Gentoo Foundation; Distributed under the GPL v2
+# $Header: /var/cvsroot/gentoo-x86/dev-perl/Devel-REPL/ChangeLog,v 1.5 2010/03/05 11:13:15 tove Exp $
+
+*Devel-REPL-1.003007-r1 (05 Mar 2010)
+
+  05 Mar 2010; Torsten Veller <tove@gentoo.org> +files/cpan_rt_54579.patch,
+  +Devel-REPL-1.003007-r1.ebuild:
+  Fixes load_plugin error via Moose::Meta::Class (#307869). Thanks to Jason
+  Mills
 
   07 Sep 2009; Torsten Veller <tove@gentoo.org> -Devel-REPL-1.003006.ebuild:
   Cleanup
diff --git a/dev-perl/Devel-REPL/Devel-REPL-1.003007-r1.ebuild b/dev-perl/Devel-REPL/Devel-REPL-1.003007-r1.ebuild
new file mode 100644
index 000000000000..9a6bfc9d6546
--- /dev/null
+++ b/dev-perl/Devel-REPL/Devel-REPL-1.003007-r1.ebuild
@@ -0,0 +1,42 @@
+# Copyright 1999-2010 Gentoo Foundation
+# Distributed under the terms of the GNU General Public License v2
+# $Header: /var/cvsroot/gentoo-x86/dev-perl/Devel-REPL/Devel-REPL-1.003007-r1.ebuild,v 1.1 2010/03/05 11:13:15 tove Exp $
+
+EAPI=2
+
+#MODULE_AUTHOR="OLIVER"
+MODULE_AUTHOR="MSTROUT"
+inherit perl-module
+
+DESCRIPTION="a modern perl interactive shell"
+
+SLOT="0"
+KEYWORDS="~amd64 ~x86"
+IUSE=""
+
+RDEPEND="
+	>=dev-perl/Moose-0.74
+	>=dev-perl/MooseX-Object-Pluggable-0.0009
+	>=dev-perl/MooseX-Getopt-0.18
+	>=dev-perl/MooseX-AttributeHelpers-0.16
+	dev-perl/namespace-clean
+	dev-perl/File-HomeDir
+	virtual/perl-File-Spec
+	virtual/perl-Term-ANSIColor
+
+	dev-perl/PPI
+	dev-perl/Data-Dump-Streamer
+	dev-perl/File-Next
+	dev-perl/B-Keywords
+	dev-perl/Lexical-Persistence
+	dev-perl/App-Nopaste
+	dev-perl/Module-Refresh
+"
+# B::Concise? => perl
+# Devel::Peek => perl
+# Term::ReadLine => perl
+
+DEPEND="${RDEPEND}"
+
+SRC_TEST="do"
+PATCHES=( "${FILESDIR}"/cpan_rt_54579.patch )
diff --git a/dev-perl/Devel-REPL/files/cpan_rt_54579.patch b/dev-perl/Devel-REPL/files/cpan_rt_54579.patch
new file mode 100644
index 000000000000..c1a69902fe65
--- /dev/null
+++ b/dev-perl/Devel-REPL/files/cpan_rt_54579.patch
@@ -0,0 +1,18 @@
+--- Devel-REPL-1.003007/lib/Devel/REPL/Meta/Plugin.pm
++++ Devel-REPL-1.003007/lib/Devel/REPL/Meta/Plugin.pm
+@@ -6,6 +6,7 @@ extends 'Moose::Meta::Role';
+ 
+ before 'apply' => sub {
+   my ($self, $other) = @_;
++  return unless $other->isa('Devel::REPL');
+   if (my $pre = $self->get_method('BEFORE_PLUGIN')) {
+     $pre->body->($other, $self);
+   }
+@@ -13,6 +14,7 @@ before 'apply' => sub {
+ 
+ after 'apply' => sub {
+   my ($self, $other) = @_;
++  return unless $other->isa('Devel::REPL');
+   if (my $pre = $self->get_method('AFTER_PLUGIN')) {
+     $pre->body->($other, $self);
+   }