From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Mon, 17 Jan 2011 10:29:07 +0000 (+0100)
Subject: Datenbankverbindung bei FCGI-Variante am Schluss nicht schließen
X-Git-Tag: release-2.6.3~61^2~9^2~3^2~15^2~4
X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/commitdiff_plain/2a19f220c2918805ebb14b265f4e09b1f92b071d

Datenbankverbindung bei FCGI-Variante am Schluss nicht schließen
---

diff --git a/SL/Dispatcher.pm b/SL/Dispatcher.pm
index da7ffef64..3a1e8d84a 100644
--- a/SL/Dispatcher.pm
+++ b/SL/Dispatcher.pm
@@ -236,7 +236,7 @@ sub handle_request {
   $::locale   = undef;
   $::form     = undef;
   $::myconfig = ();
-  Form::disconnect_standard_dbh();
+  Form::disconnect_standard_dbh unless $self->_interface_is_fcgi;
 
   $::lxdebug->end_request;
   $::lxdebug->leave_sub;
@@ -244,7 +244,7 @@ sub handle_request {
 
 sub unrequire_bin_mozilla {
   my $self = shift;
-  return unless $self->{interface} =~ m/^(?:fastcgi|fcgid|fcgi)$/;
+  return unless $self->_interface_is_fcgi;
 
   for (keys %INC) {
     next unless m#^bin/mozilla/#;
@@ -254,6 +254,11 @@ sub unrequire_bin_mozilla {
   }
 }
 
+sub _interface_is_fcgi {
+  my $self = shift;
+  return $self->{interface} =~ m/^(?:fastcgi|fcgid|fcgi)$/;
+}
+
 sub _route_request {
   my $script_name = shift;