Log errors that happen when retrieving http headers in ejabberd_http

It seems that ssl errors can be generated here, so lets have abily to show
them instead of swallowing them silently.

1 files changed, 4 insertions, 1 deletions

diff --git a/src/ejabberd_http.erl b/src/ejabberd_http.erl
index 83b6effda..af98b950e 100644
--- a/src/ejabberd_http.erl
+++ b/src/ejabberd_http.erl
@@ -193,7 +193,10 @@ receive_headers(#state{trail = Trail} = State) ->
     Socket = State#state.socket,
     Data = SockMod:recv(Socket, 0, 300000),
     case Data of
-        {error, _} -> ok;
+        {error, Error} ->
+	    ?DEBUG("Error when retrieving http headers ~p: ~p",
+		   [State#state.sockmod, Error]),
+	    ok;
         {ok, D} ->
             parse_headers(State#state{trail = <<Trail/binary, D/binary>>})
     end.