* callproc.c (relocate_fd): Use F_DUPFD if defined.

diff --git a/src/ChangeLog b/src/ChangeLog
index d6002ad2b2026b721f6e132a91223e5beca2fa9c..6907c5add4c989fc0422fc3e496547c8a858ec2e 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,7 @@
 2010-07-11  Andreas Schwab  <schwab@linux-m68k.org>
 
+       * callproc.c (relocate_fd): Use F_DUPFD if defined.
+
        * alloc.c (pending_malloc_warning, malloc_warning): Add const.
        * callproc.c (relocate_fd, getenv_internal_1, getenv_internal)
        (egetenv): Likewise.

diff --git a/src/callproc.c b/src/callproc.c
index e78d1a9aeaa19b014c44f924dc214416f96e57a6..4ad6bcf41ea9231f96abbdc9ca33d66dd857e30e 100644 (file)
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -1288,7 +1288,16 @@ relocate_fd (int fd, int minfd)
     return fd;
   else
     {
-      int new = dup (fd);
+      int new;
+#ifdef F_DUPFD
+      new = fcntl (fd, F_DUPFD, minfd);
+#else
+      new = dup (fd);
+      if (new != -1)
+       /* Note that we hold the original FD open while we recurse,
+          to guarantee we'll get a new FD if we need it.  */
+       new = relocate_fd (new, minfd);
+#endif
       if (new == -1)
        {
          const char *message1 = "Error while setting up child: ";
@@ -1299,9 +1308,6 @@ relocate_fd (int fd, int minfd)
          emacs_write (2, message2, strlen (message2));
          _exit (1);
        }
-      /* Note that we hold the original FD open while we recurse,
-        to guarantee we'll get a new FD if we need it.  */
-      new = relocate_fd (new, minfd);
       emacs_close (fd);
       return new;
     }