X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/ff575015b4bf46c210403257cb7fb0c4f3fe8c28..76da5bf5bf6929e4cc11a8eb48a53e078ff6e167:/SL/Watchdog.pm

diff --git a/SL/Watchdog.pm b/SL/Watchdog.pm
index 9001b1b32..9c1a3b5fc 100644
--- a/SL/Watchdog.pm
+++ b/SL/Watchdog.pm
@@ -4,7 +4,9 @@ use Data::Dumper;
 
 require Tie::Hash;
 
-@ISA = (Tie::StdHash);
+our @ISA = qw(Tie::StdHash);
+
+use strict;
 
 my %watched_variables;
 
@@ -13,14 +15,16 @@ sub STORE {
 
   if (substr($key, 0, 10) eq "Watchdog::") {
     substr $key, 0, 10, "";
-    $watched_variables{$key} = $value;
-    if ($value) {
-      $main::lxdebug->_write("WATCH", "Starting to watch '$key' with current value '$this->{$key}'");
-    } else {
-      $main::lxdebug->_write("WATCH", "Stopping to watch '$key'");
+    foreach $key (split m/[ ,]/, $key) {
+      $watched_variables{$key} = $value;
+      if ($value) {
+        $main::lxdebug->_write("WATCH", "Starting to watch '$key' with current value '$this->{$key}'");
+      } else {
+        $main::lxdebug->_write("WATCH", "Stopping to watch '$key'");
+      }
     }
-    return;
 
+    return;
   }
 
   if ($watched_variables{$key}