added tcp error for simple replies

ppolv · Jan 19, 2009 · 34b58d8 · 34b58d8
1 parent 4e588ec
commit 34b58d8
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/merle.erl b/src/merle.erl
@@ -304,7 +304,9 @@ send_get_cmd(Socket, Cmd) ->
 recv_simple_reply() ->
 	receive
 	  	{tcp,_,Data} ->
-        	string:tokens(binary_to_list(Data), "\r\n")
+        	string:tokens(binary_to_list(Data), "\r\n");
+        {error, closed} ->
+  			connection_closed
     after ?TIMEOUT ->
    		timeout
     end.