From: Bernd Bleßmann <bernd@kivitendo-premium.de>
Date: Wed, 23 Sep 2020 08:48:48 +0000 (+0200)
Subject: DBUtils: Query loggen: Dateinamen des Aufrufers richtig ermitteln
X-Git-Tag: release-3.5.6.1~10
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=b7eaaf1fa6066ce3c6023b0d3031150f1ca243c3;p=kivitendo-erp.git

DBUtils: Query loggen: Dateinamen des Aufrufers richtig ermitteln
---

diff --git a/SL/DBUtils.pm b/SL/DBUtils.pm
index d638f8957..9d1bcace9 100644
--- a/SL/DBUtils.pm
+++ b/SL/DBUtils.pm
@@ -92,7 +92,7 @@ sub dump_query {
   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++;
   }