From 2d0f6c3a299ad6e8d54d208b632d1dbe9aa4b1b5 Mon Sep 17 00:00:00 2001
From: john99sr <>
Date: Thu, 30 Oct 2014 10:07:38 +0000
Subject: [PATCH] 98_PID20 : fix in Sub PID20_Calc, concerning
git-svn-id: https://svn.fhem.de/fhem/trunk@6836 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
fhem/FHEM/98_PID20.pm | 13 +++++++++----
1 file changed, 9 insertions(+), 4 deletions(-)
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