File bitcask-2.0.8-rand.patch of Package bitcask

diff -Ndurp bitcask-2.0.8/src/bitcask.erl bitcask-2.0.8-rand/src/bitcask.erl
--- bitcask-2.0.8/src/bitcask.erl	2017-03-04 01:37:58.000000000 +0200
+++ bitcask-2.0.8-rand/src/bitcask.erl	2019-07-07 01:26:46.938087523 +0300
@@ -3679,12 +3679,12 @@ update_tombstones_test() ->
     ?assertEqual(1, TombCount).
 
 make_merge_file(Dir, Seed, Probability) ->
-    random:seed(Seed),
+    rand:seed(exsplus, Seed),
     case filelib:is_dir(Dir) of
         true ->
             DataFiles = filelib:wildcard("*.data", Dir),
             {ok, FH} = file:open(Dir ++ "/merge.txt", [write,raw]),
-            [case random:uniform(100) < Probability of
+            [case rand:uniform(100) < Probability of
                  true ->
                      file:write(FH, io_lib:format("~s\n", [DF]));
                  false ->
diff -Ndurp bitcask-2.0.8/test/bitcask_pr156.erl bitcask-2.0.8-rand/test/bitcask_pr156.erl
--- bitcask-2.0.8/test/bitcask_pr156.erl	2017-03-04 01:37:58.000000000 +0200
+++ bitcask-2.0.8-rand/test/bitcask_pr156.erl	2019-07-07 01:26:31.179458822 +0300
@@ -136,12 +136,12 @@ check_no_tombstones(Ref, Good) ->
     end.
 
 make_merge_txt(Dir, Seed, Probability) ->
-    random:seed(Seed),
+    rand:seed(exsplus, Seed),
     case filelib:is_dir(Dir) of
         true ->
             DataFiles = filelib:wildcard("*.data", Dir),
             {ok, FH} = file:open(Dir ++ "/merge.txt", [write]),
-            [case random:uniform(100) < Probability of
+            [case rand:uniform(100) < Probability of
                  true ->
                      io:format(FH, "~s\n", [DF]);
                  false ->
openSUSE Build Service is sponsored by