From c5dbb1e63a8e0c45c7088dd2e58f5abbcfc30620 Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
Date: Tue, 29 Nov 2011 12:25:34 +0000
Subject: [PATCH] ocaml: Memory leak: Free roots array along handle close path.

---
 ocaml/guestfs_c.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/ocaml/guestfs_c.c b/ocaml/guestfs_c.c
index 96e8a35..fd5e14a 100644
--- a/ocaml/guestfs_c.c
+++ b/ocaml/guestfs_c.c
@@ -82,6 +82,7 @@ guestfs_finalize (value gv)
       caml_remove_global_root (roots[i]);
       free (roots[i]);
     }
+    free (roots);
 
     caml_remove_global_root (v);
     free (v);
-- 
1.8.3.1