X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=generator%2Fgenerator_perl.ml;h=10a2387e5e099d3f1bc727eb59bfec59d32073dd;hb=7b295d0f3f09d8fde5b33106cb1e986bbf252bef;hp=c9ec4fb31368916cd317775ed145197b88103f0a;hpb=e8ab4fef30f064a162fdf450b58fcaf0ba6bcda5;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