X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/256c879b9614b9e0c7254e448fda6805da743db8..ca12e8dfc4773aabc13818a0398e06e44028e2bc:/SL/Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index 5a2ad9203..a6b21e2e5 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -57,7 +57,7 @@ use List::Util qw(first max min sum);
 
 my $standard_dbh;
 
-sub DESTROY {
+END {
   if ($standard_dbh) {
     $standard_dbh->disconnect();
     undef $standard_dbh;