From b2d2a98c959bad922eb12f74d849d1a6a153b336 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Wed, 1 Oct 2008 15:57:47 +0000
Subject: [PATCH] Konzeptioneller Fehler. Da es mehr als ein Form-Objekt geben
 kann (in diesem Falle beim Wiederherstellen von $form mittels
 restore_form()), darf das Standard-Datenbankhandle nicht geschlossen werden,
 wenn ein Form-Objekt vernichtet wird, sondern erst, wenn das Programm beendet
 wird.

---
 SL/Form.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
-- 
2.20.1