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

  (was breaking genhdlist2 and mkcd)

(backport from HEAD)

2 files changed, 3 insertions, 0 deletions

diff --git a/NEWS b/NEWS
index 71c1dae..6fc1439 100644
--- a/NEWS
+++ b/NEWS
@@ -1,5 +1,7 @@
 - add filesize to synthesis, add ->filesize to get it, and add
   selected_size_filesize() to compute the sum
+- fix regression in ->parse_rpm (introduced in 2.09.1) 
+  (was breaking genhdlist2 and mkcd)
 
 Version 2.09.1 - 17 December 2007, by Pascal "Pixel" Rigaux
 
diff --git a/URPM.xs b/URPM.xs
index e22eb48..86ebf92 100644
--- a/URPM.xs
+++ b/URPM.xs
@@ -1247,6 +1247,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);