--- libelwix/src/pio.c	2019/12/30 18:11:16	1.6
+++ libelwix/src/pio.c	2020/06/19 13:06:17	1.7
@@ -3,7 +3,7 @@
 *  by Michael Pounov <misho@elwix.org>
 *
 * $Author: misho $
-* $Id: pio.c,v 1.6 2019/12/30 18:11:16 misho Exp $
+* $Id: pio.c,v 1.7 2020/06/19 13:06:17 misho Exp $
 *
 **************************************************************************
 The ELWIX and AITNET software is distributed under the following
@@ -12,7 +12,7 @@ terms:
 All of the documentation and software included in the ELWIX and AITNET
 Releases is copyrighted by ELWIX - Sofia/Bulgaria <info@elwix.org>
 
-Copyright 2004 - 2015
+Copyright 2004 - 2020
 	by Michael Pounov <misho@elwix.org>.  All rights reserved.
 
 Redistribution and use in source and binary forms, with or without
@@ -74,8 +74,28 @@ int
 #endif
 e_popen(const char *command, const char *type, pid_t *ppid)
 {
+	return e_popen2(command, type, ppid, NULL, 0);
+}
+
+/*
+ * e_popen2() - ELWIX replacement of standard popen with post close of chosen handles
+ *
+ * @command = command
+ * @type = type
+ * @ppid = return pid of child program
+ * @fds = file descriptor array for close when fork
+ * @fdslen = fds number of descriptors
+ * return: NULL error or !=NULL open program
+ */
+#ifdef POPEN_STREAM
+FILE *
+#else
+int
+#endif
+e_popen2(const char *command, const char *type, pid_t *ppid, int *fds, size_t fdslen)
+{
 	struct tagPIOPID *cur, *p;
-	int pdes[2], pid, twoway, cloexec;
+	int pdes[2], pid, twoway, cloexec, i;
 	char *argv[4];
 
 	if (!command || !type)
@@ -143,6 +163,11 @@ e_popen(const char *command, const char *type, pid_t *
 #endif
 		/* NOTREACHED */
 	case 0:				/* Child. */
+		if (fds && fdslen) {
+			for (i = 0; i < fdslen; i++)
+				close(fds[i]);
+		}
+
 		if (*type == 'r') {
 			/*
 			 * The _dup2() to STDIN_FILENO is repeated to avoid