fixed multiple action problem

diff --git a/lib/Catalyst/Engine.pm b/lib/Catalyst/Engine.pm
index 876c822..c092d50 100644 (file)
--- a/lib/Catalyst/Engine.pm
+++ b/lib/Catalyst/Engine.pm
@@ -738,17 +738,16 @@ sub setup_actions {
         my $name = '';
         no strict 'refs';
         my @cache = ( $comp, @{"$comp\::ISA"} );
-        my @namespaces;
-        my %seen;
+        my %namespaces;
         while ( my $namespace = shift @cache ) {
-            push @namespaces, $namespace;
+            $namespaces{$namespace}++;
             for my $isa ( @{"$comp\::ISA"} ) {
-                next if $seen{$isa};
+                next if $namespaces{$isa};
                 push @cache, $isa;
-                $seen{$isa}++;
+                $namespaces{$isa}++;
             }
         }
-        for my $namespace (@namespaces) {
+        for my $namespace ( keys %namespaces ) {
             for my $sym ( values %{ $namespace . '::' } ) {
                 if ( *{$sym}{CODE} && *{$sym}{CODE} == $code ) {
                     $name = *{$sym}{NAME};