X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/9c7c96a8658c8a5f1144f11e619b9e5b0bdb854a..193b1e4e590fd0eb49606dea36130c72e70eee05:/SL/Dispatcher.pm

diff --git a/SL/Dispatcher.pm b/SL/Dispatcher.pm
index 8c450ad77..e5a7daab8 100644
--- a/SL/Dispatcher.pm
+++ b/SL/Dispatcher.pm
@@ -94,6 +94,7 @@ sub pre_startup {
 }
 
 sub require_main_code {
+  $::lxdebug->enter_sub;
   my ($script, $suffix) = @_;
 
   eval {
@@ -115,6 +116,7 @@ sub require_main_code {
     };
     $::form->error($EVAL_ERROR) if ($EVAL_ERROR);
   }
+  $::lxdebug->leave_sub;
 }
 
 sub handle_request {