From aadb8bf44ebc9cb704f9bfd1bf7e396be84d977a Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Wed, 25 May 2016 19:50:14 +0000
Subject: [PATCH] HttpUtils.pm: fixing gethostbyname (Forum #53406)

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

diff --git a/fhem/FHEM/HttpUtils.pm b/fhem/FHEM/HttpUtils.pm
index 9230e262d..66e3b0100 100644
--- a/fhem/FHEM/HttpUtils.pm
+++ b/fhem/FHEM/HttpUtils.pm
@@ -136,9 +136,9 @@ HttpUtils_gethostbyname($$$)
     my $iaddr = inet_aton($host);
     my $err;
     if(!defined($iaddr)) {
-      my @addr = gethostbyname($host); # This is still blocking
-      $err = ($addr[0] ? undef : "gethostbyname $host failed");
-      $iaddr = $addr[4];
+      $iaddr = gethostbyname($host); # This is still blocking
+      $err = (($iaddr && length($iaddr)==4) ? 
+                        undef : "gethostbyname $host failed");
     }
     $fn->($hash, $err, $iaddr);
     return;