2 files changed, 25 insertions, 0 deletions

diff --git a/devel/p5-Devel-REPL/Makefile b/devel/p5-Devel-REPL/Makefile
index 545f18dd52f2..dc8062e19994 100644
--- a/devel/p5-Devel-REPL/Makefile
+++ b/devel/p5-Devel-REPL/Makefile
@@ -7,6 +7,7 @@
 
 PORTNAME=	Devel-REPL
 PORTVERSION=	1.003007
+PORTREVISION=	1
 CATEGORIES=	devel perl5
 MASTER_SITES=	CPAN
 PKGNAMEPREFIX=	p5-
@@ -64,4 +65,7 @@ MAN3=	Devel::REPL.3 \
 	Devel::REPL::Plugin::Turtles.3 \
 	Devel::REPL::Profile.3
 
+post-patch:
+	@${RM} ${WRKSRC}/lib/Devel/REPL/Meta/Plugin.pm.orig
+
 .include <bsd.port.mk>
diff --git a/devel/p5-Devel-REPL/files/patch-lib_Devel_REPL_Meta_Plugin.pm b/devel/p5-Devel-REPL/files/patch-lib_Devel_REPL_Meta_Plugin.pm
new file mode 100644
index 000000000000..eec47ced9f50
--- /dev/null
+++ b/devel/p5-Devel-REPL/files/patch-lib_Devel_REPL_Meta_Plugin.pm
@@ -0,0 +1,21 @@
+
+$FreeBSD$
+
+--- lib/Devel/REPL/Meta/Plugin.pm.orig
++++ lib/Devel/REPL/Meta/Plugin.pm
+@@ -6,6 +6,7 @@
+ 
+ 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 @@
+ 
+ after 'apply' => sub {
+   my ($self, $other) = @_;
++  return unless $other->isa('Devel::REPL');
+   if (my $pre = $self->get_method('AFTER_PLUGIN')) {
+     $pre->body->($other, $self);
+   }