X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=SL%2FLXDebug.pm;h=e0b7cca3c926cbbf138d9e9cc14324c903d04f61;hb=965a8ee142a6cd21c3056eacaa01a01818032c3e;hp=b62b2da0f25a09da718828a98ef95b60625def30;hpb=072caebf05b59b8b74f7f5699d99129834bab616;p=kivitendo-erp.git

diff --git a/SL/LXDebug.pm b/SL/LXDebug.pm
index b62b2da0f..e0b7cca3c 100644
--- a/SL/LXDebug.pm
+++ b/SL/LXDebug.pm
@@ -269,8 +269,18 @@ sub _write {
   my @prefixes = ($prefix);
 
   if ($options{show_caller}) {
-    my ($package, $filename, $line, $subroutine) = caller(1);
-    push @prefixes, "${filename}:${line}";
+    my $level = 1;
+    while (1) {
+      my ($package, $filename, $line, $subroutine) = caller($level);
+
+      if (($filename // '') =~ m{LXDebug\.pm$}) {
+        $level++;
+        next;
+      }
+
+      push @prefixes, "${filename}:${line}";
+      last;
+    }
   }
 
   $prefix = join ' ', grep { $_ } @prefixes;