X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/313367d361bdc37ebad9647a82a437eedbf45ef4..f05112c2697a434803c8e223facda20b50f64a56:/SL/Dispatcher.pm

diff --git a/SL/Dispatcher.pm b/SL/Dispatcher.pm
index 43d6fa757..e8725b5f3 100644
--- a/SL/Dispatcher.pm
+++ b/SL/Dispatcher.pm
@@ -25,7 +25,6 @@ use English qw(-no_match_vars);
 use File::Basename;
 use List::MoreUtils qw(all);
 use List::Util qw(first);
-use POSIX;
 use SL::ArchiveZipFixes;
 use SL::Auth;
 use SL::Dispatcher::AuthHandler;
@@ -319,6 +318,14 @@ sub handle_request {
 
   $::form->footer;
 
+  if ($self->_interface_is_fcgi) {
+    # fcgi? send send reponse on its way before cleanup.
+    $self->{request}->Flush;
+    $self->{request}->Finish;
+  }
+
+  $::lxdebug->end_request;
+
   # cleanup
   $::auth->save_session;
   $::auth->expire_sessions;
@@ -330,8 +337,6 @@ sub handle_request {
   $::request  = undef;
   Form::disconnect_standard_dbh;
 
-  $::lxdebug->end_request;
-
   $self->_watch_for_changed_files;
 
   $::lxdebug->leave_sub;