From: Richard W.M. Jones <rjones@redhat.com>
Date: Tue, 29 Nov 2011 18:19:54 +0000 (+0000)
Subject: perl: Memory leak: Free roots array along handle close path.
X-Git-Tag: 1.14.5~4
X-Git-Url: http://git.annexia.org/?a=commitdiff_plain;h=8b886497a1fe2009ed924d519b0dd83a6a30712b;p=libguestfs.git

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
--- 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