X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/738fb45b29f22097f26c244598d6713ecd929a5e..d8ac08282dad52789b8bea785e8cddae44085483:/SL/DBConnect.pm

diff --git a/SL/DBConnect.pm b/SL/DBConnect.pm
index 8dc978758..3ad5dfdf7 100644
--- a/SL/DBConnect.pm
+++ b/SL/DBConnect.pm
@@ -7,6 +7,13 @@ use DBI;
 sub connect {
   shift;
 
+  # print STDERR "Starting full caller dump:\n";
+  # my $level = 0;
+  # while (my ($dummy, $filename, $line, $subroutine) = caller $level) {
+  #   print STDERR "  ${subroutine} from ${filename}:${line}\n";
+  #   $level++;
+  # }
+
   return DBI->connect(@_) unless $::lx_office_conf{debug} && $::lx_office_conf{debug}->{dbix_log4perl};
 
   require Log::Log4perl;