From 8bc829035d678798b475f088bcf656da8b037ad1 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sat, 4 Apr 2020 12:34:04 +0000
Subject: [PATCH] FritzBoxUtils.pm: avoid WARNING on empty FritzBox answer
 (Forum #109699)

git-svn-id: https://svn.fhem.de/fhem/trunk@21592 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/FritzBoxUtils.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/fhem/FHEM/FritzBoxUtils.pm b/fhem/FHEM/FritzBoxUtils.pm
index 0efdff842..079b012a7 100644
--- a/fhem/FHEM/FritzBoxUtils.pm
+++ b/fhem/FHEM/FritzBoxUtils.pm
@@ -24,7 +24,7 @@ FB_doCheckPW($$$)
 {
   my ($host, $user, $pw) = @_;
   my $data = GetFileFromURL(FB_host2URL($host)."login_sid.lua",undef,undef,1);
-  return undef if(!$data);
+  return if(!$data);
 
   my $chl="";
   $chl = $1 if($data =~ /<Challenge>(\w+)<\/Challenge>/i);
@@ -48,8 +48,9 @@ FB_doCheckPW($$$)
     $url .= "?username=$user" if($user);
 
     $data = GetFileFromURL($url, undef, $data, 1);
+    return if(!$data);
     my $sid = $1 if($data =~ /<SID>(\w+)<\/SID>/i);
-    $sid = undef if($sid =~ m/^0*$/);
+    return if($sid =~ m/^0*$/);
     return $sid;
   }
 }