X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/193b1e4e590fd0eb49606dea36130c72e70eee05..5f4e1abaa176f78878fc7e0977fd8307d00bb7d8:/SL/Dispatcher.pm

diff --git a/SL/Dispatcher.pm b/SL/Dispatcher.pm
index e5a7daab8..2c0539bb8 100644
--- a/SL/Dispatcher.pm
+++ b/SL/Dispatcher.pm
@@ -82,6 +82,10 @@ sub pre_startup_setup {
     %::myconfig    = ();
     %::called_subs = (); # currently used for recursion detection
   }
+
+  $SIG{__WARN__} = sub {
+    $::lxdebug->warn(@_);
+  }
 }
 
 sub pre_startup_checks {