From 28a80e34b882d00a75c0e42359fd409dd99d51b8 Mon Sep 17 00:00:00 2001
From: martinp876 <>
Date: Sun, 28 Jan 2018 15:25:32 +0000
Subject: [PATCH] 10_CUL_HM:minor bugfix with regLst

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

diff --git a/fhem/FHEM/10_CUL_HM.pm b/fhem/FHEM/10_CUL_HM.pm
index adbaa21e5..51b85a906 100755
--- a/fhem/FHEM/10_CUL_HM.pm
+++ b/fhem/FHEM/10_CUL_HM.pm
@@ -278,7 +278,7 @@ sub CUL_HM_updateConfig($){
     my $md  = CUL_HM_Get($hash,$name,"param","model");
     
     my $dHash = CUL_HM_getDeviceHash($hash);
-    $dHash->{helper}{role}{prs} = 1 if($hash->{helper}{regLst} =~ m/3p/);
+    $dHash->{helper}{role}{prs} = 1 if($hash->{helper}{regLst} && $hash->{helper}{regLst} =~ m/3p/);
 
     foreach my $rName ("D-firmware","D-serialNr",".D-devInfo",".D-stc"){
       # move certain attributes to readings for future handling