diff --git a/FHEM/98_HTTPMOD.pm b/FHEM/98_HTTPMOD.pm
index 8840b0caf..43081b9ae 100755
--- a/FHEM/98_HTTPMOD.pm
+++ b/FHEM/98_HTTPMOD.pm
@@ -140,7 +140,7 @@ BEGIN {
     ));
 };
 
-my $Module_Version = '4.1.08 - 1.4.2021';
+my $Module_Version = '4.1.09 - 24.6.2021';
 
 my $AttrList = join (' ', 
       '(reading|get|set)[0-9]+(-[0-9]+)?Name', 
@@ -2151,7 +2151,7 @@ sub CheckRedirects {
         Log3 $name, 4, "$name: no header to look for redirects";
         return;
     }
-    my @header  = split("\r\n", $header);
+    my @header  = split("[\r\n]+", $header);
     my @header0 = split(" ", shift @header);
     my $code    = $header0[1];
     Log3 $name, 4, "$name: checking for redirects, code=$code, ignore=$request->{ignoreredirects}";
@@ -2171,6 +2171,7 @@ sub CheckRedirects {
     map { $redirAdr = $1 if ( $_ =~ m{ [Ll]ocation: \s* (\S+) $ }xms ) } @header;
     if (!$redirAdr) {
         Log3 $name, 3, "$name: Error: got Redirect but no Location-Header from server";
+        return;
     }
     $redirAdr = "/$redirAdr" if($redirAdr !~ m/^http/ && $redirAdr !~ m/^\//);
     my $rurl = ($redirAdr =~ m/^http/) ? $redirAdr : $addr.$redirAdr;
diff --git a/lib/FHEM/HTTPMOD/Utils.pm b/lib/FHEM/HTTPMOD/Utils.pm
index 43f410bb5..87b8f7ce5 100644
--- a/lib/FHEM/HTTPMOD/Utils.pm
+++ b/lib/FHEM/HTTPMOD/Utils.pm
@@ -18,7 +18,11 @@
 #     along with fhem.  If not, see <http://www.gnu.org/licenses/>.
 #
 ##############################################################################
-                    
+#
+# todo: rights checking for eval
+#       timeout functions
+#
+
 package FHEM::HTTPMOD::Utils;
 
 use strict;
@@ -245,7 +249,7 @@ sub ValidRegex {
 #
 # var names can not only start with % but also @ and $
 # when a hash is passed and the target variable name starts with $
-# then it is assigned the hash reference not a new copy of the hash
+# then it is assigned the hash reference not a new copy of the hash.
 # same for arrays.
 #
 # special keys:
@@ -561,7 +565,7 @@ sub StoreKeyValue {
     my $key   = getUniqueId().$index;    
     my $enc   = "";
     
-    if(eval { use Digest::MD5; 1 }) {
+    if(eval "use Digest::MD5; 1") {
         $key = Digest::MD5::md5_hex(unpack "H*", $key);
         $key .= Digest::MD5::md5_hex($key);
     }
@@ -598,7 +602,7 @@ sub ReadKeyValue {
         Log3 $name, 4, "$name: ReadKeyValue could not find key $kName in file";
         return;
     }
-    if (eval { use Digest::MD5; 1 }) {
+    if (eval "use Digest::MD5; 1") {
         $key = Digest::MD5::md5_hex(unpack "H*", $key);
         $key .= Digest::MD5::md5_hex($key);
     }
@@ -668,7 +672,7 @@ sub FlattenJSON {
     my $buffer  = shift;                # buffer containing JSON data       
     my $name    = $hash->{NAME};        # Fhem device name
 
-    eval { use JSON };                  
+    eval "use JSON";                  
     return if($@);
 
     my $decoded = eval { decode_json($buffer) };