File 0844-lib-mnesia-stdlib-replace-random-functions-by-rand-f.patch of Package erlang

From 3c2fbb3ef7c6d08012df31e703a0b448a601c3d3 Mon Sep 17 00:00:00 2001
From: Ariel Otilibili <otilibil@eurecom.fr>
Date: Tue, 28 Jan 2025 09:22:51 +0100
Subject: [PATCH] lib/{mnesia,stdlib}: replace random functions by rand
 functions

* follows from commit 7bf573cb7047321c6b0f169f77e7cb6640235157
* replacement is done everywhere, but in tests of `random` and `erl_lint`.

Signed-off-by: Ariel Otilibili <otilibil@eurecom.fr>
---
 lib/mnesia/examples/bench/bench_populate.erl | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/lib/mnesia/examples/bench/bench_populate.erl b/lib/mnesia/examples/bench/bench_populate.erl
index c7bf2c52d6..57ced0df95 100644
--- a/lib/mnesia/examples/bench/bench_populate.erl
+++ b/lib/mnesia/examples/bench/bench_populate.erl
@@ -104,7 +104,7 @@ create_tables(C) ->
 %% -------------------------------------------------------------------
 
 populate_subscriber(Wlock, C) ->
-    random:seed(),
+    rand:seed(default),
     N = C#config.n_subscribers,
     ?d("    Populate ~p subscribers...", [N]),
     do_populate_subscriber(Wlock, N - 1, C).
@@ -112,8 +112,8 @@ populate_subscriber(Wlock, C) ->
 do_populate_subscriber(Wlock, Id, C) when Id >= 0 ->
     Suffix = bench_trans:number_to_suffix(Id),
     SubscrId = bench_trans:number_to_key(Id, C),
-    Name = list_to_binary([random:uniform(26) + $A - 1]),
-    GroupId = random:uniform(C#config.n_groups) - 1,
+    Name = list_to_binary([rand:uniform(26) + $A - 1]),
+    GroupId = rand:uniform(C#config.n_groups) - 1,
     Subscr = #subscriber{subscriber_number = SubscrId,
                          subscriber_name   = Name,
                          group_id          = GroupId,
@@ -134,7 +134,7 @@ do_populate_subscriber(_Wlock, _, _) ->
 %% -------------------------------------------------------------------
 
 populate_group(Wlock, C) ->
-    random:seed(),
+    rand:seed(default),
     N = C#config.n_groups,
     ?d("    Populate ~p groups...", [N]),
     do_populate_group(Wlock, N - 1, C).
@@ -158,7 +158,7 @@ init_allow(C) ->
     do_init_allow(0, C#config.n_servers - 1).
 
 do_init_allow(Allow, NS) when NS >= 0 ->
-    case random:uniform(100) < (90 + 1) of
+    case rand:uniform(100) < (90 + 1) of
         true ->
 	    ServerBit = 1 bsl NS,
             do_init_allow(Allow bor ServerBit, NS - 1);
@@ -173,7 +173,7 @@ do_init_allow(Allow, _) ->
 %% -------------------------------------------------------------------
 
 populate_server(Wlock, C) ->
-    random:seed(),
+    rand:seed(default),
     N = C#config.n_servers,
     ?d("    Populate ~p servers with 100 records each...", [N]),
     do_populate_server(Wlock, N - 1).
-- 
2.43.0