QPQ-AG/enoise
9
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Don't assume send is always ok

Browse Source
This commit is contained in:
Hans Svensson 2018-04-26 08:38:46 +02:00
parent 14b6f4624a
commit e3baa21bb0
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/enoise.erl
View File

@ -293,8 +293,10 @@ check_gen_tcp(TcpSock) ->
gen_tcp_snd_msg(S = {TcpSock, _, _}, Msg) -> gen_tcp_snd_msg(S = {TcpSock, _, _}, Msg) ->
Len = byte_size(Msg), Len = byte_size(Msg),
ok = gen_tcp:send(TcpSock, <<Len:16, Msg/binary>>), case gen_tcp:send(TcpSock, <<Len:16, Msg/binary>>) of
{ok, S}. ok -> {ok, S};
Err = {error, _} -> Err
end.
gen_tcp_rcv_msg({TcpSock, Active, Buf}, Timeout) -> gen_tcp_rcv_msg({TcpSock, Active, Buf}, Timeout) ->
receive {tcp, TcpSock, Data} -> receive {tcp, TcpSock, Data} ->