root
/
rabbitmq-server
mirror of https://github.com/rabbitmq/rabbitmq-server.git
1
0
Fork 0
Code Issues Actions Packages Projects Releases Wiki Activity

Merge branch 'rabbitmq-common-uniform-not-so-uniform' of https://github.com/binarin/rabbitmq-common into binarin-rabbitmq-common-uniform-not-so-uniform

This commit is contained in:
Michael Klishin 2016-08-03 10:47:05 -07:00
parent 6a9be02ed6 24819d0103
commit 3e1baa1fec
1 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
deps/rabbit_common/src/rand_compat.erl vendored
View File

@ -78,7 +78,19 @@ uniform() ->
code_version:update(?MODULE),
?MODULE:uniform().
uniform_pre_18() -> random:uniform().
ensure_random_seed() ->
case get(random_seed) of
undefined ->
random:seed(erlang:phash2([node()]),
time_compat:monotonic_time(),
time_compat:unique_integer());
_ -> ok
end.
uniform_pre_18() ->
ensure_random_seed(),
random:uniform().
uniform_post_18() -> rand:uniform().
%% uniform/1.
@ -87,7 +99,10 @@ uniform(N) ->
code_version:update(?MODULE),
?MODULE:uniform(N).
uniform_pre_18(N) -> random:uniform(N).
uniform_pre_18(N) ->
ensure_random_seed(),
random:uniform(N).
uniform_post_18(N) -> rand:uniform(N).
%% uniform_s/1.