From b7eaaf1fa6066ce3c6023b0d3031150f1ca243c3 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Bernd=20Ble=C3=9Fmann?= <bernd@kivitendo-premium.de>
Date: Wed, 23 Sep 2020 10:48:48 +0200
Subject: [PATCH] DBUtils: Query loggen: Dateinamen des Aufrufers richtig
 ermitteln

---
 SL/DBUtils.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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++;
   }
 
-- 
2.20.1