ports/143963: [PATCH] Fix devel/p5-Devel-REPL to work with p5-Moose-0.99

[Ashish SHUKLA]

>Number:         143963
>Category:       ports
>Synopsis:       [PATCH] Fix devel/p5-Devel-REPL to work with p5-Moose-0.99
>Confidential:   no
>Severity:       serious
>Priority:       low
>Responsible:    freebsd-ports-bugs
>State:          open
>Quarter:        
>Keywords:       
>Date-Required:
>Class:          sw-bug
>Submitter-Id:   current-users
>Arrival-Date:   Mon Feb 15 18:30:01 UTC 2010
>Closed-Date:
>Last-Modified:
>Originator:     Ashish SHUKLA
>Release:        FreeBSD 8.0-RELEASE amd64
>Organization:
N/A
>Environment:
System: FreeBSD chateau.d.if 8.0-RELEASE FreeBSD 8.0-RELEASE #1: Fri Nov 27 11:09:44 IST 2009 root at chateau.d.if:/usr/obj/usr/src/sys/CHATEAU amd64


>Description:
This update fixes the following error which occurs in re.pl with p5-Moose-0.99.

% re.pl
Can't locate object method "load_plugin" via package "Moose::Meta::Class" at /usr/local/lib/perl5/site_perl/5.10.1/Devel/REPL/Plugin/LexEnv.pm line 9.
BEGIN failed--compilation aborted at /usr/local/bin/re.pl line 3.

Brad Clawsie reported this error. The diff pasted at the RT[1] fixes the issue.

References:
[1] https://rt.cpan.org/Public/Bug/Display.html?id=54579#txn-733197
>How-To-Repeat:
1. Execute re.pl

% re.pl
Can't locate object method "load_plugin" via package "Moose::Meta::Class" at /usr/local/lib/perl5/site_perl/5.10.1/Devel/REPL/Plugin/LexEnv.pm line 9.
BEGIN failed--compilation aborted at /usr/local/bin/re.pl line 3.

>Fix:
diff -urN /usr/ports/devel/p5-Devel-REPL/Makefile p5-Devel-REPL/Makefile
--- /usr/ports/devel/p5-Devel-REPL/Makefile	2009-09-02 22:53:30.000000000 +0530
+++ p5-Devel-REPL/Makefile	2010-02-15 23:16:25.000000000 +0530
@@ -7,6 +7,7 @@
 
 PORTNAME=	Devel-REPL
 PORTVERSION=	1.003007
+PORTREVISION=	1
 CATEGORIES=	devel perl5
 MASTER_SITES=	CPAN
 PKGNAMEPREFIX=	p5-
diff -urN /usr/ports/devel/p5-Devel-REPL/files/patch-lib_Devel_REPL_Meta_Plugin.pm p5-Devel-REPL/files/patch-lib_Devel_REPL_Meta_Plugin.pm
--- /usr/ports/devel/p5-Devel-REPL/files/patch-lib_Devel_REPL_Meta_Plugin.pm	1970-01-01 05:30:00.000000000 +0530
+++ p5-Devel-REPL/files/patch-lib_Devel_REPL_Meta_Plugin.pm	2010-02-15 23:15:33.000000000 +0530
@@ -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);
+   }
>Release-Note:
>Audit-Trail:
>Unformatted: