diff --git a/fhem/fhem.pl b/fhem/fhem.pl index a1f351b1e..e8d7bfc1f 100755 --- a/fhem/fhem.pl +++ b/fhem/fhem.pl @@ -1492,11 +1492,11 @@ ReplaceSetMagic(@) # Forum #38276 my $a = join(" ", @_); $a =~ s/\[([a-z0-9._]+):([A-z0-9._]+)\]/{ - my $x = ReadingsVal($1,$2,""); $x eq "" ? "$1:$2" : $x + my $x = ReadingsVal($1,$2,""); $x eq "" ? "$1:$2" : "[$x]" }/egi; $a =~ s/{([^}]+)}/{ - my $x = eval $1; $@ ? $1 : $x + my $x = eval $1; $@ ? $1 : "{$x}" }/eg; return split(" ", $a);