From 2be4c335f6becc00d6cb7a92e35d16d0a366b263 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sat, 8 Nov 2014 10:32:44 +0000
Subject: [PATCH] fhem.pl: avoid logfile flooding with PERL WARNING by default.

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@6913 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/fhem.pl | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index 3055b3d1b..e42d5337e 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -2612,7 +2612,12 @@ SignalHandling()
     my ($msg) = @_;
 
     return if($inWarnSub);
+    if(!$attr{global}{stacktrace} && $data{WARNING}{$msg}) {
+      $data{WARNING}{$msg}++;
+      return;
+    }
     $inWarnSub = 1;
+    $data{WARNING}{$msg}++;
     chomp($msg);
     Log 1, "PERL WARNING: $msg"; 
     Log 3, "eval: $cmdFromAnalyze" if($cmdFromAnalyze && $msg =~ m/\(eval /);