From 51508a9fc34b4c048b64be8be93e1188f9f046ef Mon Sep 17 00:00:00 2001
From: Evgeniy Khramtsov <ekhramtsov@process-one.net>
Date: Tue, 3 Mar 2015 13:32:04 +0300
Subject: [PATCH] Report TLS errors

---
 src/ejabberd_receiver.erl | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/ejabberd_receiver.erl b/src/ejabberd_receiver.erl
index 819e6d898..f63ae1ccb 100644
--- a/src/ejabberd_receiver.erl
+++ b/src/ejabberd_receiver.erl
@@ -243,7 +243,13 @@ handle_info({Tag, _TCPSocket, Data},
 	    {ok, TLSData} ->
 		{noreply, process_data(TLSData, State),
 		 ?HIBERNATE_TIMEOUT};
-	    {error, _Reason} -> {stop, normal, State}
+	    {error, Reason} ->
+		  if is_binary(Reason) ->
+			  ?ERROR_MSG("TLS error = ~s", [Reason]);
+		     true ->
+			  ok
+		  end,
+		  {stop, normal, State}
 	  end;
       ezlib ->
 	  case ezlib:recv_data(Socket, Data) of