From a259bc651939bff86642b07615515e9b8a91d9d3 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Tue, 12 Jun 2007 12:51:09 +0000
Subject: [PATCH] =?utf8?q?Zur=20=C3=9Cberwachung=20von=20$form-Variablen?=
 =?utf8?q?=20k=C3=B6nnen=20jetzt=20mehrere=20gleichzeitig=20ein-=20oder=20?=
 =?utf8?q?ausgeschaltet=20werden.=20Syntax:=20$form->{"Watchdog::var1,var2?=
 =?utf8?q?,var3"}=20=3D=201;?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 SL/Watchdog.pm | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/SL/Watchdog.pm b/SL/Watchdog.pm
index 9001b1b32..180d364c7 100644
--- a/SL/Watchdog.pm
+++ b/SL/Watchdog.pm
@@ -13,14 +13,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}
-- 
2.20.1