Revision b7eaaf1f
Von Bernd Bleßmann vor etwa 4 Jahren hinzugefügt
| SL/DBUtils.pm | ||
|---|---|---|
| 92 | 92 |
my $self_filename = 'SL/DBUtils.pm'; |
| 93 | 93 |
my $filename = $self_filename; |
| 94 | 94 |
my ($caller_level, $line, $subroutine); |
| 95 |
while ($filename eq $self_filename) {
|
|
| 95 |
while ($filename =~ m{$self_filename$}) {
|
|
| 96 | 96 |
(undef, $filename, $line, $subroutine) = caller $caller_level++; |
| 97 | 97 |
} |
| 98 | 98 |
|
Auch abrufbar als: Unified diff
DBUtils: Query loggen: Dateinamen des Aufrufers richtig ermitteln