Fix file descriptor leak in rpm transactions.

2 files changed, 3 insertions, 0 deletions

diff --git a/Changes b/Changes
index 9c192b3..3ff08b7 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,4 @@
+- Fix file descriptor leak in rpm transactions
 - Build with the flags used to build perl itsefl
 - Make it work with no feature qw(indirect) (aka perl7)
 
diff --git a/URPM.xs b/URPM.xs
index 4b7658c..51d416c 100644
--- a/URPM.xs
+++ b/URPM.xs
@@ -2583,6 +2583,8 @@ void
 Trans_DESTROY(trans)
   URPM::Transaction trans
   CODE:
+  FD_t fd = rpmtsScriptFd(trans->ts);
+  if (fd) Fclose(fd);
   (void)rpmtsFree(trans->ts);
   if (!--trans->count) free(trans);