From 8e42a8563154b0575cd01057e006777985373307 Mon Sep 17 00:00:00 2001
From: immi <immi@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sun, 31 Dec 2017 14:42:39 +0000
Subject: [PATCH]  THZ: RemoveInternalTimer not working

git-svn-id: https://svn.fhem.de/fhem/trunk@15737 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/00_THZ.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/fhem/FHEM/00_THZ.pm b/fhem/FHEM/00_THZ.pm
index df4b44aae..812be83e7 100644
--- a/fhem/FHEM/00_THZ.pm
+++ b/fhem/FHEM/00_THZ.pm
@@ -2,7 +2,7 @@
 # 00_THZ
 # $Id$
 # by immi 12/2017
-my $thzversion = "0.173"; 
+my $thzversion = "0.174"; 
 # this code is based on the hard work of Robert; I just tried to port it
 # http://robert.penz.name/heat-pump-lwz/
 ########################################################################################
@@ -858,7 +858,7 @@ sub THZ_Define($$) {
 ########################################################################################
 sub THZ_Refresh_all_gets($) {
   my ($hash) = @_;
-  RemoveInternalTimer(undef, "THZ_GetRefresh");
+  RemoveInternalTimer(0, "THZ_GetRefresh");
   #THZ_RemoveInternalTimer("THZ_GetRefresh"); not needed since https://svn.fhem.de/trac/changeset/15667/ because now there is a second parameter for the function
   Log3 $hash->{NAME}, 5, "thzversion = $thzversion ";
   my $timedelay= 5; 						#start after 5 seconds
@@ -1011,7 +1011,7 @@ sub THZ_Testloopapproach($) {
 sub THZ_Ready($) {
   my ($hash) = @_;
   if($hash->{STATE} eq "disconnected")
-  { RemoveInternalTimer(undef, "THZ_GetRefresh");
+  { RemoveInternalTimer(0, "THZ_GetRefresh");
     #THZ_RemoveInternalTimer("THZ_GetRefresh");
   select(undef, undef, undef, 0.25); #equivalent to sleep 250ms
   return DevIo_OpenDev($hash, 1, "THZ_Refresh_all_gets")
@@ -1867,7 +1867,7 @@ sub THZ_Attr(@) {
   my ($cmd, $name, $attrName, $attrVal) = @_;
   my $hash = $defs{$name};
   
-  $attrVal = "4.39" if ($cmd eq "del");
+  $attrVal = "4.39" if (($cmd eq "del") and ($attrName eq "firmware"));
   
   if ( $attrName eq "firmware" )  {  
       if ($attrVal eq "2.06") {
@@ -1913,7 +1913,7 @@ sub THZ_Attr(@) {
 sub THZ_Undef($$) {
   my ($hash, $arg) = @_;
   my $name = $hash->{NAME};
-  RemoveInternalTimer(undef, "THZ_GetRefresh");
+  RemoveInternalTimer(0, "THZ_GetRefresh");
   #THZ_RemoveInternalTimer("THZ_GetRefresh");
   foreach my $d (sort keys %defs) {
     if(defined($defs{$d}) &&