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:
@@ -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;
|
||||
|
||||
}
|
||||
|
||||
|
||||
Reference in New Issue
Block a user