@@ -1581,11 +1581,7 @@ false."
#o640)
(fileno log-port))
1)
- (dup2 1 2)
-
- ;; Make EXTRA-PORTS available starting from file descriptor 3.
- ;; This clears their FD_CLOEXEC flag.
- (reconfigure-fds extra-ports 3))
+ (dup2 1 2))
(lambda (key . args)
(when log-file
@@ -1594,6 +1590,10 @@ false."
(print-exception (current-error-port) #f key args)
(primitive-exit 1))))
+ ;; Make EXTRA-PORTS available starting from file descriptor 3.
+ ;; This clears their FD_CLOEXEC flag.
+ (reconfigure-fds extra-ports 3)
+
;; setgid must be done *before* setuid, otherwise the user will
;; likely no longer have permissions to setgid.
(when group