|
|
@@ -21,10 +21,7 @@
|
|
|
-export([seed/0, now_secs/0, now_secs/1, now_ms/0, now_ms/1, ts_from_ms/1]).
|
|
|
|
|
|
seed() ->
|
|
|
- case erlang:function_exported(erlang, timestamp, 0) of
|
|
|
- true -> rand:seed(exsplus, erlang:timestamp()); %% R18
|
|
|
- false -> random:seed(os:timestamp()) %% Compress now() deprecated warning...
|
|
|
- end.
|
|
|
+ rand:seed(exsplus, erlang:timestamp()).
|
|
|
|
|
|
now_ms() ->
|
|
|
now_ms(os:timestamp()).
|
|
|
@@ -40,3 +37,4 @@ now_secs({MegaSecs, Secs, _MicroSecs}) ->
|
|
|
|
|
|
ts_from_ms(Ms) ->
|
|
|
{Ms div 1000000, Ms rem 1000000, 0}.
|
|
|
+
|