X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=generator%2Fgenerator_perl.ml;fp=generator%2Fgenerator_perl.ml;h=10a2387e5e099d3f1bc727eb59bfec59d32073dd;hp=c9ec4fb31368916cd317775ed145197b88103f0a;hb=00c9755ee3bea98968acea47bac858db94f7fbe2;hpb=eb7ec6170eca278fb910e18ca1f7ca81c6b507c0

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