Revision ab50a7d4
Von Sven Schöling vor fast 11 Jahren hinzugefügt
| SL/LXDebug.pm | ||
|---|---|---|
| 129 | 129 |
|
| 130 | 130 |
return 1 unless ($force || ($global_level & BACKTRACE_ON_ERROR)); |
| 131 | 131 |
|
| 132 |
$self->message(BACKTRACE_ON_ERROR, "Starting full caller dump:");
|
|
| 132 |
$self->message(0, "Starting full caller dump:");
|
|
| 133 | 133 |
my $level = 0; |
| 134 | 134 |
while (my ($dummy, $filename, $line, $subroutine) = caller $level) {
|
| 135 |
$self->message(BACKTRACE_ON_ERROR, " ${subroutine} from ${filename}:${line}");
|
|
| 135 |
$self->message(0, " ${subroutine} from ${filename}:${line}");
|
|
| 136 | 136 |
$level++; |
| 137 | 137 |
} |
| 138 | 138 |
|
Auch abrufbar als: Unified diff
$::lxdebug->backtrace_on_error auch im force mode anzeigen