X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst%2FBase.pm;fp=lib%2FCatalyst%2FBase.pm;h=65f3120e4864da536822d3745875d771c9202287;hp=1fe7d947e2f52ed4c75419c5c7986ca69ce1e10d;hb=c5b74a51e7fa915f628392c1c55cb2d4a3e89d07;hpb=d4d8fbb8a597f9d51e02cd9c1bbd6a55f2b8a999

diff --git a/lib/Catalyst/Base.pm b/lib/Catalyst/Base.pm
index 1fe7d94..65f3120 100644
--- a/lib/Catalyst/Base.pm
+++ b/lib/Catalyst/Base.pm
@@ -162,7 +162,7 @@ sub register_actions {
 
     foreach my $cache (@action_cache) {
         my $code   = $cache->[0];
-        my $method = $methods{$code};
+        my $method = delete $methods{$code}; # avoid dupe registers
         next unless $method;
         my $attrs = $self->_parse_attrs( $c, $method, @{ $cache->[1] } );
         if ( $attrs->{Private} && ( keys %$attrs > 1 ) ) {