From: David Reiss <dreiss@apache.org>
Date: Wed, 11 Jun 2008 01:00:52 +0000 (+0000)
Subject: don't do an exit(normal)
X-Git-Tag: 0.2.0~722
X-Git-Url: https://source.supwisdom.com/gerrit/gitweb?a=commitdiff_plain;h=190d769481f30cc27a591ec5134d3fd3352d6e6f;p=common%2Fthrift.git

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 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).