HttpUtils.pm: fixing gethostbyname (Forum #53406)

git-svn-id: https://svn.fhem.de/fhem/trunk@11517 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2016-05-25 19:50:14 +00:00
parent ab0dcca5d5
commit aadb8bf44e

View File

@ -136,9 +136,9 @@ HttpUtils_gethostbyname($$$)
my $iaddr = inet_aton($host); my $iaddr = inet_aton($host);
my $err; my $err;
if(!defined($iaddr)) { if(!defined($iaddr)) {
my @addr = gethostbyname($host); # This is still blocking $iaddr = gethostbyname($host); # This is still blocking
$err = ($addr[0] ? undef : "gethostbyname $host failed"); $err = (($iaddr && length($iaddr)==4) ?
$iaddr = $addr[4]; undef : "gethostbyname $host failed");
} }
$fn->($hash, $err, $iaddr); $fn->($hash, $err, $iaddr);
return; return;