argh. stupidity attack.

r10056@cain (orig r4393):  matthewt | 2006-06-17 16:22:26 +0000

diff --git a/lib/Catalyst/ActionChain.pm b/lib/Catalyst/ActionChain.pm
index ceb7c81..6b08e2b 100644 (file)
--- a/lib/Catalyst/ActionChain.pm
+++ b/lib/Catalyst/ActionChain.pm
@@ -49,7 +49,9 @@ actions in order.
 sub dispatch {
     my ( $self, $c ) = @_;
     my @captures = @{$c->req->captures||[]};
-    foreach my $action ( @{ $self->chain } ) {
+    my @chain = @{ $self->chain };
+    my $last = pop(@chain);
+    foreach my $action ( @chain ) {
         my @args;
         if (my $cap = $action->attributes->{Captures}) {
           @args = splice(@captures, 0, $cap->[0]);
@@ -57,6 +59,7 @@ sub dispatch {
         local $c->request->{arguments} = \@args;
         $action->dispatch( $c );
     }
+    $last->dispatch( $c );
 }
 
 =head2 from_chain( \@actions )