unshift @INC, $exe_dir;
}
+use Carp;
use CGI qw( -no_xhtml);
use Config::Std;
use DateTime;
$::lxdebug->warn(@_);
};
+ $SIG{__DIE__} = sub { Carp::confess( @_ ) } if $::lx_office_conf{debug}->{backtrace_on_die};
+
$self->_cache_file_modification_times;
}
1;
} or do {
- if ($EVAL_ERROR ne END_OF_REQUEST) {
+ if (substr($EVAL_ERROR, 0, length(END_OF_REQUEST())) ne END_OF_REQUEST()) {
my $error = $EVAL_ERROR;
print STDERR $error;