From 4aa27656b701804d58d4b39245a6aa61e4fbd40d Mon Sep 17 00:00:00 2001
From: nanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c>
Date: Sat, 21 Jul 2007 16:49:08 +0000
Subject: - fix another memleak

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

(limited to 'RPM4')

diff --git a/RPM4/src/RPM4.xs b/RPM4/src/RPM4.xs
index f03fdc0..bbbe741 100644
--- a/RPM4/src/RPM4.xs
+++ b/RPM4/src/RPM4.xs
@@ -715,6 +715,7 @@ expand(name)
     PPCODE:
     const char * value = rpmExpand(name, NULL);
     XPUSHs(sv_2mortal(newSVpv(value, 0)));
+    free(value);
 
 void
 expandnumeric(name)
@@ -807,6 +808,7 @@ platformscore(platform)
 
 void
 buildhost()
+    PREINIT:
     PPCODE:
     XPUSHs(sv_2mortal(newSVpv(buildHost(),0)));
     
-- 
cgit v1.2.1