From 2a19f220c2918805ebb14b265f4e09b1f92b071d Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Mon, 17 Jan 2011 11:29:07 +0100
Subject: [PATCH] =?utf8?q?Datenbankverbindung=20bei=20FCGI-Variante=20am?=
 =?utf8?q?=20Schluss=20nicht=20schlie=C3=9Fen?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 SL/Dispatcher.pm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

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