Leichter zu lesende Debugausgaben durch Einrückung.

diff --git a/SL/LXDebug.pm b/SL/LXDebug.pm
index 76edd82..6da1a72 100644 (file)
--- a/SL/LXDebug.pm
+++ b/SL/LXDebug.pm
@@ -108,7 +108,7 @@ sub show_backtrace {
   $self->message(BACKTRACE_ON_ERROR, "Starting full caller dump:");
   my $level = 0;
   while (my ($dummy, $filename, $line, $subroutine) = caller $level) {
-    $self->message(BACKTRACE_ON_ERROR, "${subroutine} from ${filename}:${line}");
+    $self->message(BACKTRACE_ON_ERROR, "  ${subroutine} from ${filename}:${line}");
     $level++;
   }