Stacktrace an Exception anhängen (über Konfigurationssetting einschaltbar)

diff --git a/SL/Dispatcher.pm b/SL/Dispatcher.pm
index 93d3a18..a52e4bd 100644 (file)
--- a/SL/Dispatcher.pm
+++ b/SL/Dispatcher.pm
@@ -16,6 +16,7 @@ BEGIN {
   unshift @INC, $exe_dir;
 }
 
+use Carp;
 use CGI qw( -no_xhtml);
 use Config::Std;
 use DateTime;
@@ -128,6 +129,8 @@ sub pre_startup_setup {
     $::lxdebug->warn(@_);
   };
 
+  $SIG{__DIE__} = sub { Carp::confess( @_ ) } if $::lx_office_conf{debug}->{backtrace_on_die};
+
   $self->_cache_file_modification_times;
 }
 

diff --git a/config/kivitendo.conf.default b/config/kivitendo.conf.default
index 4e4919d..382e565 100644 (file)
--- a/config/kivitendo.conf.default
+++ b/config/kivitendo.conf.default
@@ -301,3 +301,6 @@ keep_installation_unlocked = 0
 # be made unique by appending a random GET parameter. This will cause
 # the web browser to always reload the resources.
 auto_reload_resources = 0
+
+# If set to 1 each exception will include a full stack backtrace.
+backtrace_on_die = 0