2
0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-09 20:57:11 +00:00

fhem.pl: add some debugging aid to localize return message on startup (Forum #91031)

git-svn-id: https://svn.fhem.de/fhem/trunk@17329 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2018-09-12 07:03:11 +00:00
parent 876c36700f
commit 53599cb19d

View File

@ -1342,15 +1342,21 @@ CommandInclude($$)
$currcfgfile = $arg;
my $bigcmd = "";
my $lineno = 0;
$rcvdquit = 0;
while(my $l = <$fh>) {
$lineno++;
$l =~ s/[\r\n]//g;
if($l =~ m/^(.*)\\ *$/) { # Multiline commands
$bigcmd .= "$1\n";
} else {
my $tret = AnalyzeCommandChain($cl, $bigcmd . $l);
push @ret, $tret if(defined($tret));
if(defined($tret)) {
Log 5, "$arg line $lineno returned >$tret<";
push @ret, $tret;
}
$bigcmd = "";
}
last if($rcvdquit);