X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/292ede47027688272dcd9bc2fc8a900057847392..ca12e8dfc4773aabc13818a0398e06e44028e2bc:/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 {
-
+