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.