FileLog: modify eval to be displayed after PERL WARNING (Forum #27835)

git-svn-id: https://svn.fhem.de/fhem/trunk@6751 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig
2014-10-12 11:31:37 +00:00
parent c8e75ed2a5
commit 7ea0440c10

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