From 9d1e5cb2455cf98cfa5795b0aca31d2a97a0e953 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Thu, 31 Dec 2015 10:03:49 +0000
Subject: [PATCH] fhem.pl: Fix ReplaceSetMagic bug (Forum #38276)

git-svn-id: https://svn.fhem.de/fhem/trunk@10315 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/fhem.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index d07a0f358..968a3a7d6 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -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));
 }
 
 #####################################