From 5d8c0b7e82f1475d78e0b6fc6de58e50b8f3199e Mon Sep 17 00:00:00 2001
From: martinp876 <martinp876@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sat, 14 Jun 2014 11:58:49 +0000
Subject: [PATCH] avoid crash at pairing

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@6110 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/10_CUL_HM.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/fhem/FHEM/10_CUL_HM.pm b/fhem/FHEM/10_CUL_HM.pm
index 22f9b5a19..95f5a1eb7 100755
--- a/fhem/FHEM/10_CUL_HM.pm
+++ b/fhem/FHEM/10_CUL_HM.pm
@@ -764,7 +764,8 @@ sub CUL_HM_hmInitMsg($){ #define device init msg for HMLAN
 }
 sub CUL_HM_hmInitMsgUpdt($){ #update device init msg for HMLAN
   my ($hash)=@_;
-  return if ($hash->{helper}{role}{vrt});
+  return if (  $hash->{helper}{role}{vrt}
+             ||!defined $hash->{helper}{io}{p});
   my $oldChn = $hash->{helper}{io}{newChn};
   my @p = @{$hash->{helper}{io}{p}};
   # General todo