98_DOIF.pm: fixed: safe comma

git-svn-id: https://svn.fhem.de/fhem/trunk@10899 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
damian-s
2016-02-21 12:41:29 +00:00
parent f670f16a4a
commit b3d5203a17

View File

@@ -111,7 +111,7 @@ GetBlockDoIf ($$)
}
}
sub
GetCommand ($)
GetCommandDoIf ($)
{
my ($tailBlock) = @_;
my $char;
@@ -138,6 +138,8 @@ GetCommand ($)
}
if ($cmd eq "") {
$cmd=$tailBlock;
} else {
$cmd=$cmd.$tailBlock
}
return ($cmd,"");
}
@@ -541,7 +543,7 @@ ParseCommandsDoIf($$$)
return ($currentBlock,$err) if ($err);
#$tailBlock=substr($tailBlock,pos($tailBlock)) if ($tailBlock =~ /^\s*,/g);
} else {
($currentBlock,$tailBlock)=GetCommand($tailBlock);
($currentBlock,$tailBlock)=GetCommandDoIf($tailBlock);
}
if ($currentBlock ne "") {
($currentBlock,$err)=ReplaceAllReadingsDoIf($hash,$currentBlock,-1,$eval);