From ddaad2779922b5700b11042ca11d440053f12888 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Sun, 5 Oct 2014 09:57:35 +0000
Subject: [PATCH] HttpUtils.pm: Report error earlier (Forum #27565)

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

diff --git a/fhem/FHEM/HttpUtils.pm b/fhem/FHEM/HttpUtils.pm
index c01c3877c..7d71f9210 100644
--- a/fhem/FHEM/HttpUtils.pm
+++ b/fhem/FHEM/HttpUtils.pm
@@ -149,6 +149,8 @@ HttpUtils_Connect($)
   } else {
     $hash->{conn} = IO::Socket::INET->new(
                 PeerAddr=>"$host:$port", Timeout=>$hash->{timeout});
+    return "$hash->{displayurl}: Can't connect(1) to $hash->{addr}: $@"
+      if(!$hash->{conn});
   }
   return HttpUtils_Connect2($hash);
 }
@@ -172,8 +174,8 @@ HttpUtils_Connect2($)
   if(!$hash->{conn}) {
     undef $hash->{conn};
     my $err = $@;
-    $err = "$SSL_ERR" if(!$err && $hash->{protocol} eq "https");
-    return "$hash->{displayurl}: Can't connect to $hash->{addr}: $err"; 
+    $err = $SSL_ERR if(!$err && $hash->{protocol} eq "https");
+    return "$hash->{displayurl}: Can't connect(2) to $hash->{addr}: $err"; 
   }
 
   my $data;