From 1d2318d563bb75d087300ac8ca5702a474d403f8 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Sat, 4 Aug 2018 16:59:23 +0000
Subject: [PATCH] fhem.pl: better retunr in AnalyzePerlCommand (Forum #89953)

git-svn-id: https://svn.fhem.de/fhem/trunk@17089 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/fhem.pl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index fb09429aa..c22adda04 100755
--- 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;
 }