X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/292ede47027688272dcd9bc2fc8a900057847392..1cd7aea87cff5ab5a4b51a539e2dc24935f4d8c4:/SL/Form.pm
diff --git a/SL/Form.pm b/SL/Form.pm
index a06c363e8..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;
@@ -617,15 +617,15 @@ sub header {
-
+