From 583e04fa0a08c11f31b4583b8fd74ca6da418393 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.
(cherry picked from commit c5dbb1e63a8e0c45c7088dd2e58f5abbcfc30620)
---
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