Pre-Checks können mit Exception enden (end-of-request), daher in eval {} packen

Ansonsten wurde nach jeder Anfrage der Prozess beendet, sofern ein
Pre-Check fehl schlug. Das passiert z.B., wenn die Auth-DB nicht
existiert.

diff --git a/SL/Dispatcher.pm b/SL/Dispatcher.pm
index df8cc8344a684bcba50ccbceae621b0cb274c36e..76fcf6fb7b23f67b5dc6da8966f6f8a466323418 100644 (file)
--- a/SL/Dispatcher.pm
+++ b/SL/Dispatcher.pm
@@ -180,9 +180,9 @@ sub handle_request {
     $::form->{script} = "controller.pl";
   }
 
     $::form->{script} = "controller.pl";
   }
 

-  pre_request_checks();
-

   eval {
   eval {

+    pre_request_checks();
+

     my $session_result = $::auth->restore_session;
     $::auth->create_or_refresh_session;
 
     my $session_result = $::auth->restore_session;
     $::auth->create_or_refresh_session;