X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/20a083051185f1ec54d8a1b40bd64744dacc8790..290df7c8b37a75d3796e589c3fa0a58feaa9e92c:/SL/LXDebug.pm

diff --git a/SL/LXDebug.pm b/SL/LXDebug.pm
index ee70d03f5..4bb420398 100644
--- a/SL/LXDebug.pm
+++ b/SL/LXDebug.pm
@@ -57,7 +57,7 @@ sub enter_sub {
   my ($self, $level) = @_;
   $level *= 1;
 
-  check_watched_form_variables();
+  $self->check_watched_form_variables();
 
   return 1 unless ($global_level & TRACE);          # ignore if traces aren't active
   return 1 if $level && !($global_level & $level);  # ignore if level of trace isn't active
@@ -102,6 +102,8 @@ sub leave_sub {
 
 sub message {
   my ($self, $level, $message) = @_;
+
+  $self->check_watched_form_variables();
   $self->_write(level2string($level), $message) if (($self->{"level"} | $global_level) & $level || !$level);
 }