FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 09:16:53 +00:00
Code Issues Releases Wiki Activity

fhem.pl: Fix ReplaceSetMagic bug (Forum #38276)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@10315 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2015-12-31 10:03:49 +00:00
parent 53df67391e
commit 9d1e5cb245
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
fhem/fhem.pl
View File

@ -1542,6 +1542,7 @@ ReplaceSetMagic($$@) # Forum #38276
my $hash = shift;
my $nsplit = shift;
my $a = join(" ", @_);
my $oa = $a;
$a =~ s/\[([a-z0-9._]+):([A-z0-9._]+)\]/{
my $x = ReadingsVal($1,$2,""); $x eq "" ? "[$1:$2]" : $x
@ -1549,7 +1550,8 @@ ReplaceSetMagic($$@) # Forum #38276
$a =~ s/{\((.*)\)}/AnalyzePerlCommand($hash->{CL},$1,1)/eg;
return (undef, split(" ", $a, $nsplit));
return (undef, @_) if($oa eq $a);
return (undef, split(/ /, $a, $nsplit));
}
#####################################