X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=lib%2FCatalyst.pm;h=b6196354fb4129f372f25f3f46ca9a9c0fabc5b3;hp=90d36108b8a6bd4b93e99e607799233904b6c36f;hb=88879e92d58519c320438f8440a68d1648f4c099;hpb=d901e2e268459e6c387a42569e98741cd89dc703 diff --git a/lib/Catalyst.pm b/lib/Catalyst.pm index 90d3610..b619635 100644 --- a/lib/Catalyst.pm +++ b/lib/Catalyst.pm @@ -1147,7 +1147,7 @@ sub execute { my $last = pop( @{ $c->stack } ); if ( my $error = $@ ) { - if ( $error eq $DETACH ) { die $DETACH if $c->depth > 1 } + if ( !ref($error) and $error eq $DETACH ) { die $DETACH if $c->depth > 1 } else { unless ( ref $error ) { no warnings 'uninitialized';