From f943aebfe5edf8034be6c456b4a81217d4a024e8 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sun, 12 Oct 2014 11:31:37 +0000
Subject: [PATCH] FileLog: modify eval to be displayed after PERL WARNING
 (Forum #27835)

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@6751 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/92_FileLog.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/fhem/FHEM/92_FileLog.pm b/fhem/FHEM/92_FileLog.pm
index 7187d7143..4f8dd59db 100755
--- a/fhem/FHEM/92_FileLog.pm
+++ b/fhem/FHEM/92_FileLog.pm
@@ -697,7 +697,9 @@ RESCAN:
         $val = $1 if($fld[$col] =~ m/^(\d+).*/o);
 
       } else {                              # evaluate
-        $val = eval($h->{fn});
+        $cmdFromAnalyze = $h->{fn};
+        $val = eval($cmdFromAnalyze);
+        $cmdFromAnalyze = undef;
 
       }