From c2ffd57727e5f02b94f1c46392a740e404d4c270 Mon Sep 17 00:00:00 2001
From: Alan Coopersmith <alan.coopersmith@oracle.com>
Date: Sun, 10 Apr 2022 09:18:41 -0700
Subject: Close fd for reading old Makefile when done, instead of leaking it

Found by Oracle Parfait:

Error: File Leak
   File Leak [file-ptr-leak]:
      Leaked File fdin
        at line 799 of main.c in function 'redirect'.
          fdin initialized at line 769 with fopen

Signed-off-by: Alan Coopersmith <alan.coopersmith@oracle.com>
---
 main.c | 1 +
 1 file changed, 1 insertion(+)

(limited to 'main.c')

diff --git a/main.c b/main.c
index 8715881..816243f 100644
--- a/main.c
+++ b/main.c
@@ -790,6 +790,7 @@ redirect(const char *line, const char *makefile)
 		fputs(buf, fdout);
 	    }
 	}
+	fclose(fdin);
 	fflush(fdout);
 #ifndef HAVE_FCHMOD
 	chmod(makefile, st.st_mode);
-- 
cgit v1.2.1