From 2c153f9737c8c8b62136eb5956de3d48283ec360 Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
Date: Tue, 24 Mar 2015 21:34:17 +0000
Subject: [PATCH] Ensure Random.self_init() is called.

Otherwise guests get the same MAC address because there is
insufficient randomness in the OCaml PRNG.
---
 mclu.ml | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/mclu.ml b/mclu.ml
index a6e6e1d..b4bbf94 100644
--- a/mclu.ml
+++ b/mclu.ml
@@ -20,6 +20,8 @@ open Utils
 
 open Printf
 
+let () = Random.self_init ()
+
 let config_file =
   let default =
     try Sys.getenv "MCLU_CONFIG"
-- 
1.8.3.1