simplified a bit
André Walker [Wed, 6 Jul 2011 17:47:57 +0000 (14:47 -0300)]
lib/Catalyst/SubContainer.pm

index 8472fc1..6dc29dc 100644 (file)
@@ -23,10 +23,9 @@ sub get_component_regexp {
     my $query = ref $name ? $name : qr{$name}i;
     $query =~ s/^${appclass}::($p|$prefix):://i;
 
-    my @comps  = $self->get_service_list;
     my @result = map {
-        $self->resolve( service => $_, parameters => { context => $args } )
-    } grep { m/$query/ } @comps;
+        $self->get_component( $_, $args )
+    } grep { m/$query/ } $self->get_service_list;
 
     if (!ref $name && $result[0]) {
         $c->log->warn( Carp::shortmess(qq(Found results for "${name}" using regexp fallback)) );