From 746be9e3b420df71d0f848fe0f0051c2f7c22006 Mon Sep 17 00:00:00 2001
From: nasseeder1 <nasseeder1@users.noreply.github.com>
Date: Sat, 27 Jun 2020 10:35:48 +0000
Subject: [PATCH] 76_SMAPortal: contrib 3.2.0

git-svn-id: https://svn.fhem.de/fhem/trunk@22284 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/contrib/DS_Starter/76_SMAPortal.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/fhem/contrib/DS_Starter/76_SMAPortal.pm b/fhem/contrib/DS_Starter/76_SMAPortal.pm
index 8bb53de82..6c1d375aa 100644
--- a/fhem/contrib/DS_Starter/76_SMAPortal.pm
+++ b/fhem/contrib/DS_Starter/76_SMAPortal.pm
@@ -933,12 +933,12 @@ sub GetSetData {                                                       ## no cri
   if($getp ne "none") {            
 
       for my $k (keys %{$subs{$name}}) {
-          next if(!$subs{$name}{$k}{doit}); 
-          if(!$subs{$name}{$k}{func}) {
-              Log3 ($name, 2, qq{$name - WARNING - function $k -> ".$subs{$name}{$k}{func}." doesn't exist and is ignored }); 
+          next if(!$subs{$name}{$k}{doit});           
+          no strict "refs";                                  ## no critic 'NoStrict'  
+          if(!defined &{$subs{$name}{$k}{func}}) {
+              Log3 ($name, 2, qq{$name - WARNING - data provider '$k' call function '$subs{$name}{$k}{func}' doesn't exist and is ignored }); 
               next;
           }            
-          no strict "refs";                                  ## no critic 'NoStrict'           
           ($errstate,$state,$reread,$retry) = &{$subs{$name}{$k}{func}} ({ name     => $name,
                                                                            ua       => $ua,
                                                                            state    => $state,