return muss nach leave_sub stattfinden, sonst wird das ignoriert

[mfinanz.git] / SL / LXDebug.pm

diff --git a/SL/LXDebug.pm b/SL/LXDebug.pm
index ee70d03f53caec161299106b733bcd0449a13eef..4bb4203980e4b81fb8ac58f1d2d1d291525f5ab4 100644 (file)
--- 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);
 }