Nach jedem Request die Standard-Datenbankverbindung schließen

diff --git a/SL/Dispatcher.pm b/SL/Dispatcher.pm
index 44bf3be0376d9e81c977bf8d8549fa570e6ba041..2599f5f0f7ff39bbacb5c917f9834486a5666c55 100644 (file)
--- a/SL/Dispatcher.pm
+++ b/SL/Dispatcher.pm
@@ -179,6 +179,7 @@ sub handle_request {
   $::locale   = undef;
   $::form     = undef;
   $::myconfig = ();
   $::locale   = undef;
   $::form     = undef;
   $::myconfig = ();

+  Form::disconnect_standard_dbh();

 
   $::lxdebug->end_request;
   $::lxdebug->leave_sub;
 
   $::lxdebug->end_request;
   $::lxdebug->leave_sub;

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 {
 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 {
 }
 
 sub _store_value {