aboutsummaryrefslogtreecommitdiffstats
path: root/URPM.xs
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2008-01-08 11:13:42 +0000
committerPascal Rigaux <pixel@mandriva.com>2008-01-08 11:13:42 +0000
commit0420ed104e9f97a318ad31dec8789274dc9fdff8 (patch)
treee14fa03e7ba63742fc49449b9510c4c54faaf287 /URPM.xs
parentf8e163a8edeaee4f1d41f3944680be408a7787ad (diff)
downloadperl-URPM-0420ed104e9f97a318ad31dec8789274dc9fdff8.tar
perl-URPM-0420ed104e9f97a318ad31dec8789274dc9fdff8.tar.gz
perl-URPM-0420ed104e9f97a318ad31dec8789274dc9fdff8.tar.bz2
perl-URPM-0420ed104e9f97a318ad31dec8789274dc9fdff8.tar.xz
perl-URPM-0420ed104e9f97a318ad31dec8789274dc9fdff8.zip
- fix regression in ->parse_rpm (introduced in 3.00)
(was breaking genhdlist2 and mkcd) one got too many open files :-/
Diffstat (limited to 'URPM.xs')
-rw-r--r--URPM.xs1
1 files changed, 1 insertions, 0 deletions
diff --git a/URPM.xs b/URPM.xs
index f8b3483..85c9cc9 100644
--- a/URPM.xs
+++ b/URPM.xs
@@ -1256,6 +1256,7 @@ update_header(char *filename, URPM__Package pkg, int keep_all_tags, int vsflags)
basename = strrchr(filename, '/');
size = fdSize(fd);
+ Fclose(fd);
headerAddEntry(header, FILENAME_TAG, RPM_STRING_TYPE, basename != NULL ? basename + 1 : filename, 1);
headerAddEntry(header, FILESIZE_TAG, RPM_INT32_TYPE, &size, 1);