X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FLXDebug.pm;h=8a4dd29235cc96b0264ae62fd47c53a089f80d17;hb=86b09030a3fb9aa7e6dfddbe0e22622f85299f21;hp=1071ef3e7656b5ae74fc17b97c074eb9275d79e6;hpb=bce420e0f499519a4913db53275b8b1c682c99d7;p=kivitendo-erp.git

diff --git a/SL/LXDebug.pm b/SL/LXDebug.pm
index 1071ef3e7..8a4dd2923 100644
--- a/SL/LXDebug.pm
+++ b/SL/LXDebug.pm
@@ -15,11 +15,15 @@ use POSIX qw(strftime);
 
 my $data_dumper_available;
 
+our $global_level;
+our $watch_form;
+
 BEGIN {
   eval("use Data::Dumper");
   $data_dumper_available = $@ ? 0 : 1;
 
   $global_level      = NONE;
+  $watch_form        = 0;
 }
 
 sub new {
@@ -97,7 +101,8 @@ sub leave_sub {
 
 sub message {
   my ($self, $level, $message) = @_;
-  $self->_write(level2string($level), $message) if (($self->{"level"} | $global_level) & $level);
+
+  $self->_write(level2string($level), $message) if (($self->{"level"} | $global_level) & $level || !$level);
 }
 
 sub dump {
@@ -134,7 +139,7 @@ sub _write {
     print(FILE "${date}${message}\n");
     close(FILE);
 
-      } elsif (STDERR_TARGET == $self->{"target"}) {
+  } elsif (STDERR_TARGET == $self->{"target"}) {
     print(STDERR "${date}${message}\n");
   }
 }