[Catalyst-commits] r10675 - Catalyst-Runtime/5.80/trunk/lib

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2009-06-26 15:28:06 +0000 (Fri, 26 Jun 2009)
New Revision: 10675

Modified:
   Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm
Log:
Detect redispatch exceptions by a class check, not by checking the exception message.

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm	2009-06-26 15:27:55 UTC (rev 10674)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst.pm	2009-06-26 15:28:06 UTC (rev 10675)
@@ -1511,10 +1511,10 @@
     my $last = pop( @{ $c->stack } );
 
     if ( my $error = $@ ) {
-        if ( ref($error) and $error eq $DETACH ) {
+        if ( blessed($error) and $error->isa('Catalyst::Exception::Detach') ) {
             die $DETACH if($c->depth > 1);
         }
-        elsif ( ref($error) and $error eq $GO ) {
+        elsif ( blessed($error) and $error->isa('Catalyst::Exception::Go') ) {
             die $GO if($c->depth > 0);
         }
         else {