FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 03:06:37 +00:00
Code Issues Releases Wiki Activity

fhem.pl: slight stacktrace/WARNING message reporting changes (Forum #59831)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@12463 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2016-10-29 08:13:52 +00:00
parent 788b046006
commit 56220f5a3a
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
fhem/fhem.pl
View File

@ -2917,9 +2917,11 @@ stacktrace()
my $i = 1;
my $max_depth = 50;
Log 3, "stacktrace:";
# Forum #59831
Log 1, "eval: $cmdFromAnalyze" if($cmdFromAnalyze && $attr{global}{verbose} < 3);
Log 1, "stacktrace:";
while( (my @call_details = (caller($i++))) && ($i<$max_depth) ) {
Log 3, sprintf (" %-35s called by %s (%s)",
Log 1, sprintf (" %-35s called by %s (%s)",
$call_details[3], $call_details[1], $call_details[2]);
}
}
@ -2952,7 +2954,6 @@ SignalHandling()
Log 1, "PERL WARNING: $msg";
Log 3, "eval: $cmdFromAnalyze" if($cmdFromAnalyze && $msg =~ m/\(eval /);
stacktrace() if($attr{global}{stacktrace} &&
$attr{global}{verbose} >= 3 &&
$msg !~ m/ redefined at /);
$inWarnSub = 0;
};