Revision da8bd00b
Von Sven Schöling vor etwa 12 Jahren hinzugefügt
| SL/LXDebug.pm | ||
|---|---|---|
| 119 | 119 |
my ($dummy1, $self_filename, $self_line) = caller(0); |
| 120 | 120 |
|
| 121 | 121 |
my $indent = " " x --$self->{"calldepth"};
|
| 122 |
my $time = $self->want_request_timer ? $self->get_request_time : ''; |
|
| 122 |
my $time = $self->want_request_timer ? $self->get_request_time || '' : '';
|
|
| 123 | 123 |
|
| 124 | 124 |
if (!defined($package)) {
|
| 125 | 125 |
$self->_write('sub' . $level, $indent . "/ $time top-level?\n");
|
Auch abrufbar als: Unified diff
Warnung beim Testen unterdrücken