From 190d769481f30cc27a591ec5134d3fd3352d6e6f Mon Sep 17 00:00:00 2001 From: David Reiss Date: Wed, 11 Jun 2008 01:00:52 +0000 Subject: [PATCH] don't do an exit(normal) git-svn-id: https://svn.apache.org/repos/asf/incubator/thrift/trunk@666440 13f79535-47bb-0310-9956-ffa450edef68 --- lib/alterl/src/thrift_socket_transport.erl | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/lib/alterl/src/thrift_socket_transport.erl b/lib/alterl/src/thrift_socket_transport.erl index 4b1f723f..70367d61 100644 --- a/lib/alterl/src/thrift_socket_transport.erl +++ b/lib/alterl/src/thrift_socket_transport.erl @@ -27,7 +27,7 @@ write(#data{socket = Socket}, Data) when is_binary(Data) -> gen_tcp:send(Socket, Data). -read(D = #data{socket=Socket, recv_timeout=Timeout}, Len) +read(#data{socket=Socket, recv_timeout=Timeout}, Len) when is_integer(Len), Len >= 0 -> gen_tcp:recv(Socket, Len, Timeout). @@ -36,5 +36,4 @@ flush(_) -> ok. close(#data{socket = Socket}) -> - gen_tcp:close(Socket), - exit(normal). + gen_tcp:close(Socket). -- 2.17.1