[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