From 1579bf2d18e29c0ac769c874957892acc1b294d0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Andreas=20K=C3=B6hler?= <andreas.koehler@1und1.de>
Date: Fri, 22 Oct 2010 19:35:25 +0200
Subject: [PATCH] Re-use the TLSSock argument in tls:send/2 (EJAB-1327)

---
 src/tls/tls.erl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/tls/tls.erl b/src/tls/tls.erl
index 7c6009078..ffbae68c9 100644
--- a/src/tls/tls.erl
+++ b/src/tls/tls.erl
@@ -193,7 +193,7 @@ recv_data1(#tlssock{tcpsock = TCPSocket, tlsport = Port}, Packet) ->
 	    {error, binary_to_list(Error)}
     end.
 
-send(#tlssock{tcpsock = TCPSocket, tlsport = Port}, Packet) ->
+send(#tlssock{tcpsock = TCPSocket, tlsport = Port} = TLSSock, Packet) ->
     case port_control(Port, ?SET_DECRYPTED_OUTPUT, Packet) of
 	<<0>> ->
 	    %?PRINT("OUT: ~p~n", [{TCPSocket, lists:flatten(Packet)}]),
@@ -210,7 +210,7 @@ send(#tlssock{tcpsock = TCPSocket, tlsport = Port}, Packet) ->
 		{timeout, _Timer, _} ->
 		    {error, timeout}
 	    after 100 ->
-		    send(#tlssock{tcpsock = TCPSocket, tlsport = Port}, Packet)
+		    send(TLSSock, Packet)
 	    end
     end.