- fix regression in ->parse_rpm (introduced in 3.00)

  (was breaking genhdlist2 and mkcd)

one got too many open files :-/

2 files changed, 4 insertions, 0 deletions

diff --git a/NEWS b/NEWS
index a9c36c7..1cf24e8 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,6 @@
+- fix regression in ->parse_rpm (introduced in 3.00) 
+  (was breaking genhdlist2 and mkcd)
+
 Version 3.04 - 20 December 2007, by Pascal "Pixel" Rigaux
 
 - fix regression in parse_pubkeys() (introduced in 3.00) (#36121)
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);