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

(cherry picked from commit 00c9755ee3bea98968acea47bac858db94f7fbe2)

diff --git a/generator/generator_perl.ml b/generator/generator_perl.ml
index c9ec4fb..10a2387 100644 (file)
--- 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