diff options
| author | nanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2007-07-21 16:49:08 +0000 |
|---|---|---|
| committer | nanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2007-07-21 16:49:08 +0000 |
| commit | 4aa27656b701804d58d4b39245a6aa61e4fbd40d (patch) | |
| tree | 97dfaf829ac97947250c947f66f1c9cd1d1279cf | |
| parent | e522e54059fa08222b5fa3eecf886955b71fb9bb (diff) | |
| download | perl-RPM4-4aa27656b701804d58d4b39245a6aa61e4fbd40d.tar perl-RPM4-4aa27656b701804d58d4b39245a6aa61e4fbd40d.tar.gz perl-RPM4-4aa27656b701804d58d4b39245a6aa61e4fbd40d.tar.bz2 perl-RPM4-4aa27656b701804d58d4b39245a6aa61e4fbd40d.tar.xz perl-RPM4-4aa27656b701804d58d4b39245a6aa61e4fbd40d.zip | |
- fix another memleak
git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@139 971eb68f-4bfb-0310-8326-d2484c010a4c
| -rw-r--r-- | RPM4/src/RPM4.xs | 2 |
1 files changed, 2 insertions, 0 deletions
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))); |