Revision e51c5028
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/Watchdog.pm | ||
|---|---|---|
| 30 | 30 |
$main::lxdebug->_write("WATCH",
|
| 31 | 31 |
"Value of '$key' changed from '$this->{$key}' to '$value' "
|
| 32 | 32 |
. "in ${subroutine} at ${self_filename}:${self_line}");
|
| 33 |
if ($watched_variables{$key} > 1) {
|
|
| 34 |
my $level = 1; |
|
| 35 |
my ($dummy, $filename, $line); |
|
| 36 |
|
|
| 37 |
while (($dummy, $filename, $line, $subroutine) = caller $level) {
|
|
| 38 |
$main::lxdebug->_write("WATCH", " ${subroutine} from ${filename}:${line}");
|
|
| 39 |
$level++; |
|
| 40 |
} |
|
| 41 |
} |
|
| 33 | 42 |
} |
| 34 | 43 |
|
| 35 | 44 |
$this->{$key} = $value;
|
Auch abrufbar als: Unified diff
Ausgabe des Stacktraces beim Watchdog, wenn die Kontrollvariable auf > 1 gesetzt ist.