X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FDispatcher.pm;h=f63267bfe22e8b21dea4bf254df8b5b2c75f9bf9;hp=4b9fa8ea6455b023ce06307bb2c081b478608a9a;hb=98d049efac171f40ddcd1553d033f8daf6145e7d;hpb=3e5607485bfedb02a06193f653a2f05202db7a4e

diff --git a/lib/Catalyst/Dispatcher.pm b/lib/Catalyst/Dispatcher.pm
index 4b9fa8e..f63267b 100644
--- a/lib/Catalyst/Dispatcher.pm
+++ b/lib/Catalyst/Dispatcher.pm
@@ -613,8 +613,8 @@ sub setup_actions {
       $self->_load_dispatch_types( @{ $self->preload_dispatch_types } );
     @{ $self->_registered_dispatch_types }{@classes} = (1) x @classes;
 
-    foreach my $comp_key ( keys %{ $c->components } ) {
-      my $comp = $c->component($comp_key);
+    foreach my $comp ( values %{ $c->components } ) {
+        $comp = $comp->() if ref($comp) eq 'CODE';
         $comp->register_actions($c) if $comp->can('register_actions');
     }