X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FWatchdog.pm;h=69ec53ce0d33b21304e9d129deaab52ca46de139;hb=904a4a46f86ee7c041af6747c3335f2472290ff9;hp=3aac6532bb316465262af601f49b49611daaad1e;hpb=e7191bc2818007bf58cec5e2167e977904f0ac44;p=kivitendo-erp.git

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;