X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FLXDebug.pm;h=8a4dd29235cc96b0264ae62fd47c53a089f80d17;hb=a5d5620d468d74e593ee31ece1d7dc3612d14faa;hp=59a6579d27b2f56375d1d9242d8857be08501967;hpb=6c38a7cfc8b4cf831da178101b3ae2fc83596081;p=kivitendo-erp.git

diff --git a/SL/LXDebug.pm b/SL/LXDebug.pm
index 59a6579d2..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,6 +101,7 @@ sub leave_sub {
 
 sub message {
   my ($self, $level, $message) = @_;
+
   $self->_write(level2string($level), $message) if (($self->{"level"} | $global_level) & $level || !$level);
 }
 
@@ -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");
   }
 }