diff --git a/rebar.config b/rebar.config index c20e0f2..5055e27 100644 --- a/rebar.config +++ b/rebar.config @@ -10,6 +10,8 @@ [{platform_define, "^[0-9]+", namespaced_types}, {platform_define, "^[0-9]+", have_callback_support}, {platform_define, "^R1[4|5]", deprecated_crypto}, + {platform_define, "^1[8|9]", rand_module}, + {platform_define, "^2", rand_module}, debug_info, warnings_as_errors]}. diff --git a/src/ec_file.erl b/src/ec_file.erl index 46ed814..7d89ace 100644 --- a/src/ec_file.erl +++ b/src/ec_file.erl @@ -174,8 +174,7 @@ real_dir_path(Path) -> %% function of the same name. -spec insecure_mkdtemp() -> TmpDirPath::file:name(). insecure_mkdtemp() -> - random:seed(os:timestamp()), - UniqueNumber = erlang:integer_to_list(erlang:trunc(random:uniform() * 1000000000000)), + UniqueNumber = erlang:integer_to_list(erlang:trunc(random_uniform() * 1000000000000)), TmpDirPath = filename:join([tmp(), lists:flatten([".tmp_dir", UniqueNumber])]), @@ -321,6 +320,16 @@ hex0(I) -> $0 + I. sub_files(From) -> {ok, SubFiles} = file:list_dir(From), [filename:join(From, SubFile) || SubFile <- SubFiles]. + +-ifdef(rand_module). +random_uniform() -> + rand:uniform(). +-else. +random_uniform() -> + random:seed(os:timestamp()), + random:uniform(). +-endif. + %%%=================================================================== %%% Test Functions %%%===================================================================