From a810e48b1718a76a2eac4dc88a262c3ee4540af5 Mon Sep 17 00:00:00 2001
From: dietmar63 <>
Date: Sun, 3 Nov 2013 21:31:04 +0000
Subject: [PATCH] now when using a Perlcommand it will always be executed, not
 only when old parameter isnt like the new Parameter.

git-svn-id: https://svn.fhem.de/fhem/trunk@4146 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/98_Heating_Control.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fhem/FHEM/98_Heating_Control.pm b/fhem/FHEM/98_Heating_Control.pm
index 8efbb7720..378bd9ff1 100644
--- a/fhem/FHEM/98_Heating_Control.pm
+++ b/fhem/FHEM/98_Heating_Control.pm
@@ -441,7 +441,7 @@ sub Heating_Control_Device_Schalten($$$$) {
 
   #Kommando ausführen
   my $secondsSinceSwitch = $nowSwitch - $now;
-  if ($nowSwitch gt "" && $aktParam ne $newParam ) {
+  if (defined $hash->{helper}{COMMAND} || ($nowSwitch gt "" && $aktParam ne $newParam )) {
      if (!SwitchInVergangenheit($hash) && $secondsSinceSwitch < -60) {
         Log3 $hash, 5, $mod."no switch in the yesterdays because of the devices type.";
      } else {