diff --git a/fhem/FHEM/10_CUL_HM.pm b/fhem/FHEM/10_CUL_HM.pm
index 23f0d29f5..febb77c3f 100755
--- a/fhem/FHEM/10_CUL_HM.pm
+++ b/fhem/FHEM/10_CUL_HM.pm
@@ -5478,7 +5478,9 @@ sub CUL_HM_Set($@) {#+++++++++++++++++ set command+++++++++++++++++++++++++++++
   elsif($cmd eq "tplDel") { ###################################################
     return "template missing" if (!defined $a[2]);
     my ($p,$t) = split(">",$a[2]);
-    HMinfo_templateDel($name,$t,$p) if (eval "defined(&HMinfo_templateDel)");
+    if (defined &HMinfo_templateDel){
+      HMinfo_templateDel($name,$t,$p) if (eval "defined(&HMinfo_templateDel)");
+    }
     return;
   }
   elsif($cmd eq "virtual") { ##################################################
@@ -7519,7 +7521,10 @@ sub CUL_HM_Set($@) {#+++++++++++++++++ set command+++++++++++++++++++++++++++++
     return "no HMinfo defined" if (!defined $defs{$hm});
 
     my @par =  map{$params{$_}} sort keys%params;
-    my $ret = HMinfo_SetFn($defs{$hm},$hm,"templateSet",$name,$tpl,"$tPeer$tTyp",@par);
+    my $ret = "not supported w/o HMinfo";
+    if (defined &HMinfo_SetFn){
+      $ret = HMinfo_SetFn($defs{$hm},$hm,"templateSet",$name,$tpl,"$tPeer$tTyp",@par);
+    }
     return $ret;
   }
   elsif($cmd =~ m/tplPara(..)(.)_.*/) { #######################################
@@ -7538,7 +7543,10 @@ sub CUL_HM_Set($@) {#+++++++++++++++++ set command+++++++++++++++++++++++++++++
       $pv[$pNo] = $a[2];
     }
 
-    my $ret = HMinfo_SetFn($defs{hm},$hm,"templateSet",$name,$tn,$p,@pv);
+    my $ret = "not supported w/o HMinfo";
+    if (defined &HMinfo_SetFn){
+      $ret = HMinfo_SetFn($defs{hm},$hm,"templateSet",$name,$tn,$p,@pv);
+    }
     return $ret;
   }