X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FLXDebug.pm;h=3a56e62a90bcfd0204f9ba6f3a1c78177ec13ee9;hb=4a648176621310d6b0c099c7f7af2d5a8ecf0890;hp=00116dd990a7e23c545d54b3ce3063c142304709;hpb=cc40558976fc6ce87ebdf6261bafe108d914b3d3;p=kivitendo-erp.git

diff --git a/SL/LXDebug.pm b/SL/LXDebug.pm
index 00116dd99..3a56e62a9 100644
--- a/SL/LXDebug.pm
+++ b/SL/LXDebug.pm
@@ -53,7 +53,9 @@ sub set_target {
 }
 
 sub enter_sub {
-  my ($self) = @_;
+  my ($self, $level) = @_;
+
+  return if $global_trace_subs < $level;
 
   if (!$self->{"trace_subs"} && !$global_trace_subs) {
     return;
@@ -77,7 +79,9 @@ sub enter_sub {
 }
 
 sub leave_sub {
-  my ($self) = @_;
+  my ($self, $level) = @_;
+
+  return if $global_trace_subs < $level;
 
   if (!$self->{"trace_subs"} && !$global_trace_subs) {
     return;