From d0070671ab3bca13df679b1df63cc3d3ebd57559 Mon Sep 17 00:00:00 2001 From: rudolfkoenig <> Date: Sat, 30 Sep 2017 12:23:26 +0000 Subject: [PATCH] 98_cmdalias.pm: match multiline (Forum #77285) git-svn-id: https://svn.fhem.de/fhem/trunk@15154 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/98_cmdalias.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/fhem/FHEM/98_cmdalias.pm b/fhem/FHEM/98_cmdalias.pm index 5463eeeda..8184c72ef 100644 --- a/fhem/FHEM/98_cmdalias.pm +++ b/fhem/FHEM/98_cmdalias.pm @@ -80,11 +80,12 @@ CommandCmdAlias($$$) return "Unknown command $a, internal error" if(!$a); foreach my $n (sort keys %{$a->{Alias}}) { my $h = $a->{Alias}{$n}; - if($h->{InExec} && $param =~ m/^$h->{PARAM}$/) { + my $doesMatch = $param =~ m/^$h->{PARAM}$/s; # Match multiline, #77285 + if($h->{InExec} && $doesMatch) { Log3 $n, 3, "cmdalias $n called recursively, skipping execution"; next; } - if($param =~ m/^$h->{PARAM}$/) { + if($doesMatch) { my %specials= ("%EVENT" => $param); my $exec = EvalSpecials($h->{NEWCMD}, %specials); $h->{InExec} = 1;