fhem.pl: better retunr in AnalyzePerlCommand (Forum #89953)

git-svn-id: https://svn.fhem.de/fhem/trunk@17089 2b470e98-0d58-463d-a4d8-8e2adae1ed80
2018-08-04 16:59:23 +00:00
parent 56f9b9dd67
commit 955aab4d1d
1 changed files with 4 additions and 2 deletions
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -1110,8 +1110,10 @@ AnalyzePerlCommand($$;$)

  $cmdFromAnalyze = $cmd;
  my $ret = eval $cmd;
-  Log 1, "ERROR evaluating $cmd: $@" if($@);
-  $ret = $@ if($@);
+  if($@) {
+    $ret = $@;
+    Log 1, "ERROR evaluating $cmd: $ret";
+  }
  $cmdFromAnalyze = undef;
  return $ret;
 }