[Bast-commits] r3529 - trunk/DBIx-Class/lib/DBIx/Class

[blblack at dev.catalyst.perl.org]

Author: blblack
Date: 2007-06-26 14:19:33 +0100 (Tue, 26 Jun 2007)
New Revision: 3529

Modified:
   trunk/DBIx-Class/lib/DBIx/Class/Exception.pm
Log:
DBIx::Class::Exception should pass off any exception objects untouched, not just its own

Modified: trunk/DBIx-Class/lib/DBIx/Class/Exception.pm
===================================================================
--- trunk/DBIx-Class/lib/DBIx/Class/Exception.pm	2007-06-25 22:55:24 UTC (rev 3528)
+++ trunk/DBIx-Class/lib/DBIx/Class/Exception.pm	2007-06-26 13:19:33 UTC (rev 3529)
@@ -49,8 +49,8 @@
 sub throw {
     my ($class, $msg, $stacktrace) = @_;
 
-    # Don't re-encapsulate multiple times
-    die $msg if blessed($msg) && $msg->isa('DBIx::Class::Exception');
+    # Don't re-encapsulate exception objects of any kind
+    die $msg if blessed($msg);
 
     # use Carp::Clan's croak if we're not stack tracing
     if(!$stacktrace) {