[Catalyst-dev] [Patch] Bug in warning message in Catalyst::Component (5.8001)

Emanuele Zeppieri emazep at gmail.com
Mon Apr 20 03:31:07 GMT 2009


Line 82 in Catalyst::Component (5.8001) says:

warn "Your linearised isa hierarchy is: " . join(', ', =

mro::get_linear_isa($class)) . "\n";

however mro::get_linear_isa() returns an arrayref, not a list.

Patch attached.

P.S.

The patch applies s/linearised/linearized/ as well, since it sounds more =

familiar to my foreign ear: please drop that change (and forgive me) if =

I'm wrong.

Thank you for your invaluable work!

-Emanuele Zeppieri
-------------- next part --------------
--- /home/Emanuele/perl5/lib/perl5/Catalyst/Component.pm.orig	2009-04-20 04=
:39:40.873300000 +0200
+++ /home/Emanuele/perl5/lib/perl5/Catalyst/Component.pm	2009-04-20 05:08:4=
0.039700000 +0200
@@ -79,7 +79,7 @@
       my ($next_package) =3D Class::MOP::get_code_info($next);
       warn "There is a COMPONENT method resolving after Catalyst::Componen=
t in ${next_package}.\n";
       warn "This behavior can no longer be supported, and so your applicat=
ion is probably broken.\n";
-      warn "Your linearised isa hierarchy is: " . join(', ', mro::get_line=
ar_isa($class)) . "\n";
+      warn "Your linearized isa hierarchy is: " . join( ', ', @{ mro::get_=
linear_isa($class) } ) . "\n";
       warn "Please see perldoc Catalyst::Upgrading for more information ab=
out this issue.\n";
     }
     return $self->new($c, $arguments);


More information about the Catalyst-dev mailing list