X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDBUtils.pm;h=9d1bcace9d43ad15504ff3d4bd3f9435fbf05800;hb=4874214f33115e49dce29501d615848fa9df11ce;hp=d638f895746b6f4001032a2d2530249b460e69ae;hpb=4b29b4b6790cf402e33b38517d323e49de7f35aa;p=kivitendo-erp.git

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