- if ($log_level >= $level) {
- $self->_write(INFO == $level
- ? "info"
- : DEBUG1 == $level ? "debug1" : "debug2",
- $message);
+ $self->message(BACKTRACE_ON_ERROR, "Starting full caller dump:");
+ my $level = 0;
+ while (my ($dummy, $filename, $line, $subroutine) = caller $level) {
+ $self->message(BACKTRACE_ON_ERROR, " ${subroutine} from ${filename}:${line}");
+ $level++;