From: Tomas Doran <bobtfish@bobtfish.net>
Date: Mon, 20 Apr 2009 08:52:34 +0000 (+0000)
Subject: Fix warning message, patch from dev list.
X-Git-Tag: 5.80002~17
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=1cc8db0ca98895fe4a8e4f4348885034e7528e39

Fix warning message, patch from dev list.
---

diff --git a/Changes b/Changes
index dfb9d7f..38f1d7f 100644
--- a/Changes
+++ b/Changes
@@ -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)
diff --git a/lib/Catalyst/Component.pm b/lib/Catalyst/Component.pm
index 80fc838..2782252 100644
--- a/lib/Catalyst/Component.pm
+++ b/lib/Catalyst/Component.pm
@@ -79,7 +79,7 @@ sub COMPONENT {
       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);