From 8dd0abf71ad3af51e2349f8f1cf67f3cd72d8883 Mon Sep 17 00:00:00 2001
From: Martin Whitaker <mageia@martin-whitaker.me.uk>
Date: Tue, 3 Nov 2020 20:00:55 +0000
Subject: Fix file descriptor leak in rpm transactions.

---
 Changes | 1 +
 URPM.xs | 2 ++
 2 files changed, 3 insertions(+)

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);
 
-- 
cgit v1.2.1