File 0822-inets-Remove-legacy-call-to-random-module.patch of Package erlang

From 5ce23774834ef3c523862bd0787d884b107dbb79 Mon Sep 17 00:00:00 2001
From: Ingela Anderton Andin <ingela@erlang.org>
Date: Wed, 27 Nov 2019 16:09:18 +0100
Subject: [PATCH] inets: Remove legacy call to random module

---
 lib/inets/examples/httpd_load_test/hdlt_ctrl.erl | 8 +-------
 1 file changed, 1 insertion(+), 7 deletions(-)

diff --git a/lib/inets/examples/httpd_load_test/hdlt_ctrl.erl b/lib/inets/examples/httpd_load_test/hdlt_ctrl.erl
index fcf5b4505f..9e00f0c9d9 100644
--- a/lib/inets/examples/httpd_load_test/hdlt_ctrl.erl
+++ b/lib/inets/examples/httpd_load_test/hdlt_ctrl.erl
@@ -191,9 +191,6 @@ do_init(Config) ->
     ServerRoot = filename:join(ServerDir, "server_root"),  
     DocRoot    = ServerRoot, %% Not really used in this test
 
-    ?DEBUG("randomize setup", []), 
-    randomized_sizes_init(), 
-
     %% Start used applications
     ?DEBUG("ensure crypto started", []), 
     crypto:start(),
@@ -1514,9 +1511,6 @@ set_debug_level(Debugs) ->
 %% there is exact one number between A and B and then 
 %% randomizes that list.
 
-randomized_sizes_init() ->
-    {A, B, C} = os:timestamp(),
-    random:seed(A, B, C).
 
 randomized_sizes(From, To, Incr) ->
     L   = lists:seq(From, To, Incr),
@@ -1526,6 +1520,6 @@ randomized_sizes(From, To, Incr) ->
 randomized_sizes2(L, N, Len) when N >= Len ->
     L;
 randomized_sizes2(L, N, Len) ->
-    SplitWhere = random:uniform(Len),
+    SplitWhere = rand:uniform(Len),
     {A, B} = lists:split(SplitWhere, L),
     randomized_sizes2(B ++ A, N+1, Len).
-- 
2.16.4