Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:Ledest:erlang:18
gen_rpc
gen_rpc-2.1.0-ssl.patch
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File gen_rpc-2.1.0-ssl.patch of Package gen_rpc
diff -Ndurp gen_rpc-2.1.0/src/driver/gen_rpc_driver_ssl.erl gen_rpc-2.1.0-ssl/src/driver/gen_rpc_driver_ssl.erl --- gen_rpc-2.1.0/src/driver/gen_rpc_driver_ssl.erl 2016-10-07 13:17:44.000000000 +0300 +++ gen_rpc-2.1.0-ssl/src/driver/gen_rpc_driver_ssl.erl 2019-07-12 22:47:14.733211559 +0300 @@ -37,6 +37,20 @@ set_send_timeout/2, set_acceptor_opts/1]). +-ifdef(OTP_RELEASE). +-if(?OTP_RELEASE >= 21). +-define(SSL_HANDSHAKE, true). +-import(ssl, [handshake/1]). +-endif. +-endif. +-ifndef(SSL_HANDSHAKE). +handshake(Socket) -> + case ssl:ssl_accept(Socket) of + ok -> {ok, Socket}; + E -> E + end. +-endif. + %%% =================================================== %%% Public API %%% =================================================== @@ -65,12 +79,7 @@ listen(Port) when is_integer(Port) -> -spec accept(ssl:sslsocket()) -> ok | {error, term()}. accept(Socket) when is_tuple(Socket) -> {ok, TSocket} = ssl:transport_accept(Socket, infinity), - case ssl:ssl_accept(TSocket) of - ok -> - {ok, TSocket}; - Error -> - Error - end. + handshake(TSocket). -spec send(ssl:sslsocket(), binary()) -> ok | {error, term()}. send(Socket, Data) when is_tuple(Socket), is_binary(Data) ->
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor