X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FForm.pm;h=a6b21e2e560d086537b4313b4b0f2dab60f48d25;hb=b2d2a98c959bad922eb12f74d849d1a6a153b336;hp=5a2ad92031dda916cc4e10ab1f2a9b4249b64341;hpb=99065c25a9fbb661e02a3b99d213e70e8a830264;p=kivitendo-erp.git

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;