From b4e996408ed1e47386497fff88146b93b3ee64f1 Mon Sep 17 00:00:00 2001
From: martinp876 <>
Date: Sat, 22 Aug 2015 05:38:59 +0000
Subject: [PATCH] 10_CUL_HM: code cleanup

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

diff --git a/fhem/FHEM/10_CUL_HM.pm b/fhem/FHEM/10_CUL_HM.pm
index 271ae2fcc..ccde67c1d 100755
--- a/fhem/FHEM/10_CUL_HM.pm
+++ b/fhem/FHEM/10_CUL_HM.pm
@@ -5982,6 +5982,10 @@ sub CUL_HM_statCntRfresh($) {# update statistic once a day
 
 sub CUL_HM_respPendRm($) {#del response related entries in messageing entity
   my ($hash) =  @_;
+  if (!defined($hash->{DEF})){ 
+    Log 1,"CUL_HM error removing pending commands";#General remove once found
+    return;
+  }
   $modules{CUL_HM}{prot}{rspPend}-- if($hash->{helper}{prt}{rspWait}{cmd});
   delete $hash->{helper}{prt}{rspWait};
   delete $hash->{helper}{prt}{wuReSent};
@@ -5993,9 +5997,14 @@ sub CUL_HM_respPendRm($) {#del response related entries in messageing entity
   $respRemoved = 1;
 }
 sub CUL_HM_respPendTout($) {
-  my ($HMid) =  @_;
-  (undef,$HMid) = split(":",$HMid,2);
+  my ($HMidIn) =  @_;
+  my(undef,$HMid) = split(":",$HMidIn,2);
   my $hash = $modules{CUL_HM}{defptr}{$HMid};
+  if (!defined($hash)){ 
+    Log 1,"CUL_HM error removing timer for $HMidIn";#General remove once found
+    return;
+  }
+ 
   my $pHash = $hash->{helper}{prt};#shortcut
   if ($hash && $hash->{DEF} ne '000000'){# we know the device
     my $name = $hash->{NAME};