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
This commit is contained in:
rudolfkoenig
2014-10-12 11:31:37 +00:00
parent f4b6da2ce5
commit f943aebfe5

View File

@@ -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;
}