diff options
author | Paweł Chmielowski <pchmielowski@process-one.net> | 2015-12-07 16:48:29 +0100 |
---|---|---|
committer | Paweł Chmielowski <pchmielowski@process-one.net> | 2015-12-07 16:48:29 +0100 |
commit | 95a9100623e6af7abadf5c6f1a16fab4432dc240 (patch) | |
tree | d702b5145780ff60ccac75bf50316941fddef8d8 | |
parent | Fix randoms.erl on R17 that don't have random:seed(integer()) (diff) |
Fix more places where random:seed is used
-rw-r--r-- | src/ejabberd_s2s_out.erl | 2 | ||||
-rw-r--r-- | src/extauth.erl | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/src/ejabberd_s2s_out.erl b/src/ejabberd_s2s_out.erl index 6bf92828..a5f72805 100644 --- a/src/ejabberd_s2s_out.erl +++ b/src/ejabberd_s2s_out.erl @@ -1097,7 +1097,7 @@ get_addr_port(Server) -> ?DEBUG("srv lookup of '~s': ~p~n", [Server, HEnt#hostent.h_addr_list]), AddrList = HEnt#hostent.h_addr_list, - random:seed(p1_time_compat:monotonic_time()), + random:seed(p1_time_compat:timestamp()), case catch lists:map(fun ({Priority, Weight, Port, Host}) -> N = case Weight of diff --git a/src/extauth.erl b/src/extauth.erl index 9b84741d..1d312624 100644 --- a/src/extauth.erl +++ b/src/extauth.erl @@ -102,7 +102,7 @@ call_port(Server, Msg) -> receive {eauth, Result} -> Result end. random_instance(MaxNum) -> - random:seed(p1_time_compat:monotonic_time()), + random:seed(p1_time_compat:timestamp()), random:uniform(MaxNum) - 1. get_instances(Server) -> |