This file documents the revision history for Perl extension Catalyst.
-4.22 Tue Mar 09 20:00:00 2005
+4.23 Wed Mar 09 20:00:00 2005
+ - no more regex actions in forward
+
+4.22 Tue Mar 08 20:00:00 2005
- catch errors in application class
4.21 Sat Mar 05 17:00:00 2005
last unless ${$i};
push @snippets, ${$i};
}
- return [ $name, \@snippets ];
+ return [ $self->actions->{regex}->{$name},
+ $name, \@snippets ];
}
}
}
}
my ( $class, $code );
if ( my $action = $c->action($command) ) {
+ if ( $action->[2] ) {
+ $c->log->debug(qq/Couldn't forward "$command" to regex action/)
+ if $c->debug;
+ return 0;
+ }
( $class, $code ) = @{ $action->[0] };
}
else {
# It's a regex
if ($#$result) {
- my $match = $result->[0];
- my @snippets = @{ $result->[1] };
+ my $match = $result->[1];
+ my @snippets = @{ $result->[2] };
$c->log->debug(qq/Requested action "$path" matched "$match"/)
if $c->debug;
$c->log->debug(