98_dummy.pm: avoid crash with readingsList set.

git-svn-id: https://svn.fhem.de/fhem/trunk@11442 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig
2016-05-15 12:43:12 +00:00
parent d6784e1f09
commit b04ec2cb60

View File

@@ -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";