]> wagnertech.de Git - mfinanz.git/blobdiff - SL/DB.pm
kivitendo 3.9.2-0.2
[mfinanz.git] / SL / DB.pm
index a59fd6fdf503059f05878178fa3524795750f792..a19f76b526e55683670f47686e359c5bce8449b0 100644 (file)
--- a/SL/DB.pm
+++ b/SL/DB.pm
@@ -142,8 +142,10 @@ sub with_transaction {
     if (blessed $error) {
       if ($error->isa('SL::X::DBError')) {
         # gobble the exception
-      } else {
+      } elsif ($error->can('rethrow')) {
         $error->rethrow;
+      } else {
+        croak $self->error;
       }
     } else {
       die $self->error;