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