Ausgabe des Stacktraces beim Watchdog, wenn die Kontrollvariable auf > 1 gesetzt...

diff --git a/SL/Watchdog.pm b/SL/Watchdog.pm
index 3aac653..69ec53c 100644 (file)
--- a/SL/Watchdog.pm
+++ b/SL/Watchdog.pm
@@ -30,6 +30,15 @@ sub STORE {
     $main::lxdebug->_write("WATCH",
                            "Value of '$key' changed from '$this->{$key}' to '$value' "
                              . "in ${subroutine} at ${self_filename}:${self_line}");
+    if ($watched_variables{$key} > 1) {
+      my $level = 1;
+      my ($dummy, $filename, $line);
+
+      while (($dummy, $filename, $line, $subroutine) = caller $level) {
+        $main::lxdebug->_write("WATCH", "  ${subroutine} from ${filename}:${line}");
+        $level++;
+      }
+    }
   }
 
   $this->{$key} = $value;