From 53477343824e13a009c7140a45fbd4b25c1628a8 Mon Sep 17 00:00:00 2001
From: Michael Klishin <michael@clojurewerkz.org>
Date: Wed, 17 Mar 2021 19:35:14 +0300
Subject: Squash some warnings emitted on Erlang 24

---
 src/erl_make_certs.erl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/erl_make_certs.erl')

diff --git a/src/erl_make_certs.erl b/src/erl_make_certs.erl
index 8212ef7..dfa9955 100644
--- a/src/erl_make_certs.erl
+++ b/src/erl_make_certs.erl
@@ -178,7 +178,7 @@ make_tbs(SubjectKey, Opts) ->
 		      subject(proplists:get_value(subject, Opts),false)
 	      end,
 
-    {#'OTPTBSCertificate'{serialNumber = trunc(random:uniform()*100000000)*10000 + 1,
+    {#'OTPTBSCertificate'{serialNumber = trunc(rand:uniform()*100000000)*10000 + 1,
 			  signature    = SignAlgo,
 			  issuer       = Issuer,
 			  validity     = validity(Opts),
@@ -455,7 +455,8 @@ odd_rand(Size) ->
     odd_rand(Min, Max).
 
 odd_rand(Min,Max) ->
-    Rand = crypto:rand_uniform(Min,Max),
+    Delta = Max - Min,
+    Rand = Min + trunc(rand:uniform() * Delta),
     case Rand rem 2 of
 	0 -> 
 	    Rand + 1;
-- 
cgit v1.2.3