FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-15 16:19:11 +00:00
Code Issues Releases Wiki Activity

fhem.pl: readd []/{} for ReplaceSetMagic (Forum #38276)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@8801 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2015-06-22 19:19:08 +00:00
parent 3350f1a9b9
commit 2d3ef78eee
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fhem/fhem.pl
View File

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