fhem.pl: multiline ReplaceSetMagic perl regexp

git-svn-id: https://svn.fhem.de/fhem/trunk@11237 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig
2016-04-13 08:21:05 +00:00
parent 68c5f432ec
commit b19da4a34f

View File

@@ -1548,7 +1548,7 @@ ReplaceSetMagic($$@) # Forum #38276
$x eq "" ? "[$1:$2$3]" : $x
}/egi;
$a =~ s/{\((.*)\)}/AnalyzePerlCommand($hash->{CL},$1,1)/eg;
$a =~ s/{\((.*)\)}/AnalyzePerlCommand($hash->{CL},$1,1)/egs;
return (undef, @_) if($oa eq $a);
return (undef, split(/ /, $a, $nsplit));