10_MQTT2_DEVICE.pm: Check for +/* starting regexps (Forum #111931)

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@22137 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2020-06-08 14:05:48 +00:00
parent 7a8337681d
commit d2a603b75b

View File

@ -589,6 +589,7 @@ MQTT2_DEVICE_addReading($$)
foreach my $line (split("\n", $param)) {
my ($re,$code) = split(" ", $line,2);
return "Bad line >$line< for $name" if(!defined($re) || !defined($code));
return "Bad regexp >$re< for $name: $@" if($re =~ m/^[*+]/);
eval { "Hallo" =~ m/^$re$/ };
return "Bad regexp >$re< for $name: $@" if($@);
if($cid && $re =~ m/^$cid:/) {