Close file descriptors left open by parent process

Running things in parallel with pthreads in perl can
lead to file descriptor leaks which may cause hangs
in qarsh.

1 files changed, 4 insertions, 0 deletions

diff --git a/qarsh.c b/qarsh.c
index 4fa8687..6575bd0 100644
--- a/qarsh.c
+++ b/qarsh.c
@@ -495,6 +495,10 @@ again:
 		usage();
 		exit(1);
 	}
+	/* close fd above stderr which parent may have left open */
+	for (c = 3; c < 30; c++) {
+		close(c);
+	}
 
 	memset(&sa, 0, sizeof sa);
 	sigemptyset(&sigmask);