ocaml: Memory leak: Free roots array along handle close path.

(cherry picked from commit c5dbb1e63a8e0c45c7088dd2e58f5abbcfc30620)

diff --git a/ocaml/guestfs_c.c b/ocaml/guestfs_c.c
index 96e8a35..fd5e14a 100644 (file)
--- 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);