don't do an exit(normal)

git-svn-id: https://svn.apache.org/repos/asf/incubator/thrift/trunk@666440 13f79535-47bb-0310-9956-ffa450edef68

diff --git a/lib/alterl/src/thrift_socket_transport.erl b/lib/alterl/src/thrift_socket_transport.erl
index 4b1f723..70367d6 100644 (file)
--- 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).