Revision eef466c1
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/LXDebug.pm | ||
|---|---|---|
| 108 | 108 |
$self->message(BACKTRACE_ON_ERROR, "Starting full caller dump:"); |
| 109 | 109 |
my $level = 0; |
| 110 | 110 |
while (my ($dummy, $filename, $line, $subroutine) = caller $level) {
|
| 111 |
$self->message(BACKTRACE_ON_ERROR, "${subroutine} from ${filename}:${line}");
|
|
| 111 |
$self->message(BACKTRACE_ON_ERROR, " ${subroutine} from ${filename}:${line}");
|
|
| 112 | 112 |
$level++; |
| 113 | 113 |
} |
| 114 | 114 |
|
Auch abrufbar als: Unified diff
Leichter zu lesende Debugausgaben durch Einrückung.