From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Mon, 7 May 2007 07:41:49 +0000 (+0000)
Subject: Ausgabe des Stacktraces beim Watchdog, wenn die Kontrollvariable auf > 1 gesetzt... 
X-Git-Tag: release-2.4.3^2~376
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=e51c502876f0ae620a7f6b570da9b88298ca4e83;p=kivitendo-erp.git

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

diff --git a/SL/Watchdog.pm b/SL/Watchdog.pm
index 3aac6532b..69ec53ce0 100644
--- 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;