summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard W.M. Jones <rjones@redhat.com>2011-11-29 18:19:54 +0000
committerRichard W.M. Jones <rjones@redhat.com>2011-11-29 19:44:34 +0000
commit00c9755ee3bea98968acea47bac858db94f7fbe2 (patch)
treef92bfee1a90d7550dc1d207a6028582dfa9e4cd5
parenteb7ec6170eca278fb910e18ca1f7ca81c6b507c0 (diff)
downloadlibguestfs-00c9755ee3bea98968acea47bac858db94f7fbe2.tar.gz
libguestfs-00c9755ee3bea98968acea47bac858db94f7fbe2.tar.xz
libguestfs-00c9755ee3bea98968acea47bac858db94f7fbe2.zip
perl: Memory leak: Free roots array along handle close path.
-rw-r--r--generator/generator_perl.ml1
1 files changed, 1 insertions, 0 deletions
diff --git a/generator/generator_perl.ml b/generator/generator_perl.ml
index c9ec4fb3..10a2387e 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