diff --git a/fhem/FHEM/98_PID20.pm b/fhem/FHEM/98_PID20.pm
index 87ccd5a48..a10f02e56 100644
--- a/fhem/FHEM/98_PID20.pm
+++ b/fhem/FHEM/98_PID20.pm
@@ -42,6 +42,8 @@
# code review, pod added, removed old version info (will be provided via SVN)
# V 1.01
# 19.10.2014 fix in sub PID20_Set : wrong parameter $hash instead of $name, when calling PID20_Calc
+# V 1.0.0.2 30.10.14 - fix in PID20_Calc when setting $retStr (thanks to Thorsten Pferdekaemper)
+#
####################################################################################################
package main;
use strict;
@@ -52,6 +54,8 @@ use vars qw($readingFnAttributes);
use vars qw(%attr);
use vars qw(%modules);
+my $PID20_Version="1.0.0.2";
+
sub PID20_Calc($);
########################################
@@ -682,8 +686,9 @@ sub PID20_Calc($)
# note timestamp
$hash->{helper}{actorTimestamp}=TimeNow();
$actuationDone=$actuation;
- my $retStr="" if (!$ret);
- PID20_Log $hash, 3, "<$cmd> with ret:$retStr";
+ my $retStr="";
+ $retStr = " with return-value:".$ret if (defined($ret) && ($ret ne ''));
+ PID20_Log $hash, 3, "<$cmd> ".$retStr;
}
my $updateAlive= ($actuation ne "")
@@ -838,10 +843,10 @@ sub PID20_Calc($)
- Additional informations
+ Additional information