X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/ff159a4d47b9a2d10744dcfc23da2c63605c8a32..eeb5375ee7727c956cc357cc8f90b19d1bfe80b9:/SL/DB.pm

diff --git a/SL/DB.pm b/SL/DB.pm
index a59fd6fdf..a19f76b52 100644
--- 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;