From 955aab4d1d5dd321dc3ec2e7a6fe46c36e989890 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
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;
 }