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 { - +