From b04ec2cb6022bbda3b14c8eea213e09f195296b3 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sun, 15 May 2016 12:43:12 +0000
Subject: [PATCH] 98_dummy.pm: avoid crash with readingsList set.

git-svn-id: https://svn.fhem.de/fhem/trunk@11442 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/98_dummy.pm | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/fhem/FHEM/98_dummy.pm b/fhem/FHEM/98_dummy.pm
index d525c2fe9..580b17c1c 100644
--- a/fhem/FHEM/98_dummy.pm
+++ b/fhem/FHEM/98_dummy.pm
@@ -38,11 +38,16 @@ dummy_Set($@)
   }
 
   my @rl = split(" ", AttrVal($name, "readingList", ""));
-  if(@rl && grep /\b$a[0]\b/, @rl) {
-    my $v = shift @a;
-    readingsSingleUpdate($hash, $v, join(" ",@a), 1);
-    return;
-  }
+  my $doRet;
+  eval {
+    if(@rl && grep /\b$a[0]\b/, @rl) {
+      my $v = shift @a;
+      readingsSingleUpdate($hash, $v, join(" ",@a), 1);
+      $doRet = 1;
+    }
+  };
+  return if($doRet);
+  
 
   my $v = join(" ", @a);
   Log3 $name, 4, "dummy set $name $v";