ssl setopt hang fix

myssl.erl

ssl_setopts(SslSocket, Options) ->
    Ref = erlang:now(),
    PPid = self(),
    Pid = spawn_link(fun() ->
                ssl:setopts(SslSocket, Options),
                PPid ! {self(), Ref, ssl_setopts_successful} end),
    receive
        {Pid, Ref, ssl_setopts_successful} -> ok
    after ?SSL_SETOPTS_TIMEOUT ->
            erlang:exit({error, timeout, {ssl_setopts, Options}})
    end.