Nach jedem Request die Standard-Datenbankverbindung schließen

[mfinanz.git] / SL / Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index 130a337ba4393b4be7358929d1f1c98d9e7b22cb..cfffd78e2935d2f7e1076a5b7bea30a5f37771c7 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -63,10 +63,13 @@ use strict;
 my $standard_dbh;
 
 END {
-  if ($standard_dbh) {
-    $standard_dbh->disconnect();
-    undef $standard_dbh;
-  }
+  disconnect_standard_dbh();
+}
+
+sub disconnect_standard_dbh {
+  return unless $standard_dbh;
+  $standard_dbh->disconnect();
+  undef $standard_dbh;
 }
 
 sub _store_value {