From b264d3d4f88a3573305895e5976e01ff43ff9565 Mon Sep 17 00:00:00 2001
From: Paul Smith <psmith@gnu.org>
Date: Sun, 24 Apr 2022 10:38:12 -0400
Subject: [PATCH] * tests/scripts/features/reinvoke: [SV 62088] Close STDIN

On Windows we can't delete open files, so close STDIN before
removing the temporary input file.
---
 tests/scripts/features/reinvoke | 1 +
 1 file changed, 1 insertion(+)

diff --git a/tests/scripts/features/reinvoke b/tests/scripts/features/reinvoke
index 5bcc40b4..07cbbfbe 100644
--- a/tests/scripts/features/reinvoke
+++ b/tests/scripts/features/reinvoke
@@ -173,6 +173,7 @@ open(STDIN, "<", 'input.mk') || die "input.mk: $!\n";
 
 run_make_test('', '-sf -', "all\n");
 
+close(STDIN);
 unlink('input.mk');
 
 # This tells the test driver that the perl test script executed properly.