X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=ocaml%2Fguestfs_c_actions.c;h=a3186d10190a2e62b13371862e952ea01b8f8bbe;hp=b1c4652bbdc39b22d3cf62af2eefa34c14e1942a;hb=0c2376a5c05053ce6a0479ade544be860c400fdb;hpb=ad5abc8d367c9c410051062cae066b1b141b4c76

diff --git a/ocaml/guestfs_c_actions.c b/ocaml/guestfs_c_actions.c
index b1c4652..a3186d1 100644
--- a/ocaml/guestfs_c_actions.c
+++ b/ocaml/guestfs_c_actions.c
@@ -1919,6 +1919,7 @@ ocaml_guestfs_tune2fs_l (value gv, value devicev)
     caml_failwith ("tune2fs_l: used handle after closing it");
 
   const char *device = String_val (devicev);
+  int i;
   char **r;
 
   caml_enter_blocking_section ();
@@ -1928,6 +1929,7 @@ ocaml_guestfs_tune2fs_l (value gv, value devicev)
     ocaml_guestfs_raise_error (g, "tune2fs_l");
 
   rv = copy_table (r);
+  for (i = 0; r[i] != NULL; ++i) free (r[i]);
   free (r);
   CAMLreturn (rv);
 }