X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=generator%2Fgenerator_perl.ml;h=10a2387e5e099d3f1bc727eb59bfec59d32073dd;hb=31fba8d8033216f8a288e75fe3f575b73b9ef925;hp=c9ec4fb31368916cd317775ed145197b88103f0a;hpb=365885dab2ae6dcdf0b2c45d0adeb803ade03f63;p=libguestfs.git

diff --git a/generator/generator_perl.ml b/generator/generator_perl.ml
index c9ec4fb..10a2387 100644
--- a/generator/generator_perl.ml
+++ b/generator/generator_perl.ml
@@ -181,6 +181,7 @@ _close_handle (guestfs_h *g)
 
   for (i = 0; i < len; ++i)
     SvREFCNT_dec (cbs[i]);
+  free (cbs);
 }
 
 MODULE = Sys::Guestfs  PACKAGE = Sys::Guestfs