erlang: error doesn't cause connection failure

Author: UENISHI Kota

erlang/src/mp_session.erl

@@ -52,7 +52,8 @@ behaviour_info(_Other) ->
 %%   see mp_server_sup:start_client for caller.
 %%--------------------------------------------------------------------
 start_link(Module,Socket) when is_atom(Module), is_port(Socket)->
-    gen_server:start_link(?MODULE, [Module,Socket], [{debug,[trace,log,statistics]}]).
+%    gen_server:start_link(?MODULE, [Module,Socket], [{debug,[trace,log,statistics]}]).
+    gen_server:start_link(?MODULE, [Module,Socket], []).
 
 % TBF:
 % notify(Node, Type, Method, Parms)->
@@ -201,5 +202,12 @@ handle_request(?MP_TYPE_REQUEST, CallID, Module, M, Argv,Socket, Context) when i
 	    error_logger:error_msg("no such method: ~p:~s/~p~n", [Module,binary_to_list(M),length(Argv)]),
 	    ok=gen_tcp:send(Socket, msgpack:pack([?MP_TYPE_RESPONSE, CallID, false, nil])),
 	    ok=inet:setopts(Socket, [{active,once}, {packet,raw}]),
+	    {ok, Context};
+
+	  _:What ->
+	    error_logger:error_msg("unknown error: ~p (~p:~s/~p)~n", [What, Module,binary_to_list(M),length(Argv)]),
+	    ok=gen_tcp:send(Socket, msgpack:pack([?MP_TYPE_RESPONSE, CallID, false, nil])),
+	    ok=inet:setopts(Socket, [{active,once}, {packet,raw}]),
 	    {ok, Context}
+
     end.