X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/d975c574f92b97297ebfa2a260f0040064ca0f46..fbcd5580:/SL/Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index c9d5932ea..344f1f0bc 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -344,13 +344,12 @@ sub numtextrows {
 }
 
 sub dberror {
-  $main::lxdebug->enter_sub();
-
   my ($self, $msg) = @_;
 
-  $self->error("$msg\n" . $DBI::errstr);
-
-  $main::lxdebug->leave_sub();
+  die SL::X::DBError->new(
+    msg   => $msg,
+    error => $DBI::errstr,
+  );
 }
 
 sub isblank {