Seit Commit 439e45 wird libparent-perl benötigt.

[kivitendo-erp.git] / SL / Dispatcher.pm

diff --git a/SL/Dispatcher.pm b/SL/Dispatcher.pm
index abba153ebe4b2c1401bae49189de3a7486bef8df..e5a7daab89f8fc2520a1bac3dfff637ed8fba0e6 100644 (file)
--- a/SL/Dispatcher.pm
+++ b/SL/Dispatcher.pm
@@ -16,9 +16,6 @@ use SL::Locale;
 use SL::Common;
 use Form;
 use List::Util qw(first);
-use Moose;
-use Rose::DB;
-use Rose::DB::Object;
 use File::Basename;
 
 # Trailing new line is added so that Perl will not add the line
@@ -97,6 +94,7 @@ sub pre_startup {
 }
 
 sub require_main_code {
+  $::lxdebug->enter_sub;
   my ($script, $suffix) = @_;
 
   eval {
@@ -118,6 +116,7 @@ sub require_main_code {
     };
     $::form->error($EVAL_ERROR) if ($EVAL_ERROR);
   }
+  $::lxdebug->leave_sub;
 }
 
 sub handle_request {