X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst.pm;fp=lib%2FCatalyst.pm;h=b60196207d6739bb3382abed49ff634195d362f8;hp=fbfb3bf443e8511f3f4cdf7725cf62dfe2f5dc1c;hb=829b22f766b0b1d1a09a6ce152abe48ad9bde5ec;hpb=77d892df0c89bb233feac1a72e701b94ba6bcba5

diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm
index fbfb3bf..b601962 100644
--- a/lib/Catalyst.pm
+++ b/lib/Catalyst.pm
@@ -2215,7 +2215,10 @@ sub setup_component {
 
     my $suffix = Catalyst::Utils::class2classsuffix( $component );
     my $config = $class->config->{ $suffix } || {};
-
+    $config->{_component_name} = $component; # Put this in args here, rather
+                                             # than in COMPONENT as there
+                                             # are lots of custom COMPONENT
+                                             # methods..
     my $instance = eval { $component->COMPONENT( $class, $config ); };
 
     if ( my $error = $@ ) {