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

  (was breaking genhdlist2 and mkcd)

one got too many open files :-/

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);