Better handle errors in ejabberd_receiver calls

diff --git a/src/ejabberd_receiver.erl b/src/ejabberd_receiver.erl
index 11677b7bae5aac624be542bb4aa619deadce820a..5ec26171dc4f39e1d69f8f9ff463e1c50b699515 100644 (file)
--- a/src/ejabberd_receiver.erl
+++ b/src/ejabberd_receiver.erl
@@ -157,8 +157,8 @@ handle_call({compress, Data}, _From,
       {ok, ZlibData} ->
            {reply, {ok, ZlibSocket},
                process_data(ZlibData, NewState), ?HIBERNATE_TIMEOUT};
-      {error, _Reason} ->
-           {stop, normal, ok, NewState}
+      {error, _} = Err ->
+           {stop, normal, Err, NewState}
     end;
 handle_call(reset_stream, _From, State) ->
     NewState = reset_parser(State),
@@ -338,7 +338,10 @@ do_send(State, Data) ->
     (State#state.sock_mod):send(State#state.socket, Data).
 
 do_call(Pid, Msg) ->
-    case catch ?GEN_SERVER:call(Pid, Msg) of
-      {'EXIT', Why} -> {error, Why};
-      Res -> Res
+    try ?GEN_SERVER:call(Pid, Msg) of
+       Res -> Res
+    catch _:{timeout, _} ->
+           {error, timeout};
+         _:_ ->
+           {error, einval}
     end.