mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fhem.pl: avoid logfile flooding with PERL WARNING by default.

Browse Source 
git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@6913 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig
2014-11-08 10:32:44 +00:00
parent f33a5146c2
commit 2be4c335f6
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
fhem/fhem.pl
View File

@@ -2612,7 +2612,12 @@ SignalHandling()
my ($msg) = @_; my ($msg) = @_;
return if($inWarnSub); return if($inWarnSub);
if(!$attr{global}{stacktrace} && $data{WARNING}{$msg}) {
$data{WARNING}{$msg}++;
return;
}
$inWarnSub = 1; $inWarnSub = 1;
$data{WARNING}{$msg}++;
chomp($msg); chomp($msg);
Log 1, "PERL WARNING: $msg"; Log 1, "PERL WARNING: $msg";
Log 3, "eval: $cmdFromAnalyze" if($cmdFromAnalyze && $msg =~ m/\(eval /); Log 3, "eval: $cmdFromAnalyze" if($cmdFromAnalyze && $msg =~ m/\(eval /);