In execute() there's this code:
eval { $c->state( $code->execute( $class, $c, @{ $c->req->args } ) || 0
) };
$c->_stats_finish_execute( $stats_info ) if $c->use_stats and
$stats_info;
my $last = pop( @{ $c->stack } );
if ( my $error = $@ ) {
The problem is that it's possible for the eval to fail but $@ is not set.
An example is where Locale::Maketext localizes $@ so that exceptions come
back with $@ undefined (for some odd reason).
In general, it's better to test the return value from eval directly instead
of depend on $...@. Something like:
my $has_exception;
eval { $c->state( $code->execute( $class, $c, @{ $c->req->args } ) || 0 );
1; } || $has_exception++;
...
if ( $has_exception ) {
Or use the "eval {....; 1 } || do { my $msg = $@; ...};" style.
--
Bill Moseley
[email protected]
_______________________________________________
List: [email protected]
Listinfo: http://lists.scsys.co.uk/cgi-bin/mailman/listinfo/catalyst
Searchable archive: http://www.mail-archive.com/[email protected]/
Dev site: http://dev.catalyst.perl.org/
