Tis file documents the revision history for Perl extension Catalyst.
5.50
+ - Fixed args handling in forward()
+ - Fixed forwarding to classes
- Fixed catalyst.pl-generated Build.PL Makefile section.
- Fixed relative forwarding
- Fixed forward arrows in debug output
return 0;
}
- my $arguments = ( ref( $_[-1] ) eq 'ARRAY' ) ? pop(@_) : $c->req->args;
+ my $local_args = 0;
+ my $arguments = [];
+ if ( ref( $_[-1] ) eq 'ARRAY' ) {
+ $arguments = pop(@_);
+ $local_args++;
+ }
my $result;
$result = $c->get_action( $tail, $1 );
if ($result) {
$command = $tail;
- push( @{$arguments}, @extra_args );
+ if ($local_args) { unshift( @{$arguments}, @extra_args ) }
+ else {
+ $local_args++;
+ $arguments = \@extra_args;
+ }
last DESCEND;
}
unshift( @extra_args, $tail );
}
- local $c->request->{arguments} = [ @{$arguments} ];
+ if ($local_args) { local $c->request->{arguments} = [ @{$arguments} ] }
$result->execute($c);