[Catalyst-commits] r9752 - in Catalyst-Runtime/5.80/trunk: . lib/Catalyst

[t0m at dev.catalyst.perl.org]

Author: t0m
Date: 2009-04-20 09:52:34 +0100 (Mon, 20 Apr 2009)
New Revision: 9752

Modified:
   Catalyst-Runtime/5.80/trunk/Changes
   Catalyst-Runtime/5.80/trunk/lib/Catalyst/Component.pm
Log:
Fix warning message, patch from dev list.


Modified: Catalyst-Runtime/5.80/trunk/Changes
===================================================================
--- Catalyst-Runtime/5.80/trunk/Changes	2009-04-19 23:25:16 UTC (rev 9751)
+++ Catalyst-Runtime/5.80/trunk/Changes	2009-04-20 08:52:34 UTC (rev 9752)
@@ -1,5 +1,7 @@
 # This file documents the revision history for Perl extension Catalyst.
 
+        - Fix warning message about linearized @ISA in Catalyst::Component 
+          (Emanuele Zeppieri)
         - Require MX::MethodAttributes 0.06 to avoid issues with saying
           use base 'Catalyst::Controller'; use Moose; losing actions (t0m)
         - Fix all of t0m's typos in ::Upgrading and ::Delta (hobbs)

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst/Component.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst/Component.pm	2009-04-19 23:25:16 UTC (rev 9751)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst/Component.pm	2009-04-20 08:52:34 UTC (rev 9752)
@@ -79,7 +79,7 @@
       my ($next_package) = Class::MOP::get_code_info($next);
       warn "There is a COMPONENT method resolving after Catalyst::Component in ${next_package}.\n";
       warn "This behavior can no longer be supported, and so your application is probably broken.\n";
-      warn "Your linearised isa hierarchy is: " . join(', ', mro::get_linear_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 about this issue.\n";
     }
     return $self->new($c, $arguments);