From 076a2f9e679207ec1f0e106ec86a8c044b6d5201 Mon Sep 17 00:00:00 2001
From: nanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c>
Date: Fri, 20 Jul 2007 13:43:47 +0000
Subject: - fix memleak

git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@135 971eb68f-4bfb-0310-8326-d2484c010a4c
---
 RPM4/src/RPM4.xs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/RPM4/src/RPM4.xs b/RPM4/src/RPM4.xs
index 064d5da..257e563 100644
--- a/RPM4/src/RPM4.xs
+++ b/RPM4/src/RPM4.xs
@@ -2810,6 +2810,7 @@ Spec_binrpm(spec)
     Package pkg;
     const char * binFormat;
     char * binRpm;
+    char * path;
     PPCODE:
     for(pkg = spec->packages; pkg != NULL; pkg = pkg->next) {
         if (pkg->fileList == NULL)
@@ -2819,7 +2820,9 @@ Spec_binrpm(spec)
         binRpm = headerSprintf(pkg->header, binFormat, rpmTagTable,
                    rpmHeaderFormats, NULL);
         _free(binFormat);
-        XPUSHs(sv_2mortal(newSVpv(rpmGetPath("%{_rpmdir}/", binRpm, NULL), 0)));
+        path = rpmGetPath("%{_rpmdir}/", binRpm, NULL);
+        XPUSHs(sv_2mortal(newSVpv(path, 0)));
+        _free(path);
         _free(binRpm);
     }
 
-- 
cgit v1.2.1