Bug#465626: libdevel-repl-perl: FTBFS: Failed 1/1 test scripts, 0.00% okay. 1/6 subtests failed, 83.33% okay.

[Niko Tyni]

tag 465626 patch
thanks

On Wed, Feb 13, 2008 at 07:58:58PM +0200, Niko Tyni wrote:

> On Wed, Feb 13, 2008 at 05:04:54PM +0100, Lucas Nussbaum wrote:
> > Package: libdevel-repl-perl
> > Version: 1.001000-2
> > Severity: serious
> > User: [EMAIL PROTECTED]
> > Usertags: qa-ftbfs-20080212 qa-ftbfs
> > Justification: FTBFS on i386
> 
> > > #   in t/load_core.t at line 10.
> > > #     Tried to use 'Devel::REPL::Plugin::Commands'.
> > > #     Error:  Can't locate object method "update_package_cache_flag" via 
> > > package "Devel::REPL::Meta::Plugin" at /usr/lib/perl5/Class/MOP/Class.pm 
> > > line 543.
> 
> This broke with libmoose-perl 0.36-1 (Moose upstream 0.34).

I don't claim to really understand half of this, but this patch mimics a
similar change in Moose 0.34 and makes the tests pass, so I assume it's
the Right Thing to do.

I'll apply this for now and send it upstream.

Cheers,
-- 
Niko Tyni   [EMAIL PROTECTED]

diff --git a/lib/Devel/REPL/Plugin.pm b/lib/Devel/REPL/Plugin.pm
index bfa57d3..f2f6d8a 100644
--- a/lib/Devel/REPL/Plugin.pm
+++ b/lib/Devel/REPL/Plugin.pm
@@ -8,7 +8,7 @@ use Moose::Role ();
 sub import {
   my $target = caller;
   my $meta = Devel::REPL::Meta::Plugin->initialize($target);
-  $meta->Moose::Meta::Class::add_method('meta' => sub { $meta });
+  $meta->alias_method('meta' => sub { $meta });
   goto &Moose::Role::import;
 }