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:
parent
876c36700f
commit
53599cb19d
@ -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);
|
||||
|
Loading…
x
Reference in New Issue
Block a user