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