[shepherd] 05/05: service: Open log files as O_CLOEXEC.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository shepherd.

commit f9eb1ab23f131e86f6512a475d27b0e0636d5672
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Mon Aug 29 17:15:50 2022 +0200

    service: Open log files as O_CLOEXEC.
    
    * modules/shepherd/service.scm (%service-file-logger): Pass O_CLOEXEC to
    'open-fdes'.
---
 modules/shepherd/service.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/modules/shepherd/service.scm b/modules/shepherd/service.scm
index fcab6c4..2b1210c 100644
--- a/modules/shepherd/service.scm
+++ b/modules/shepherd/service.scm
@@ -879,7 +879,8 @@ daemon writing FILE is running in a separate PID namespace."
 (define (%service-file-logger file input)
   "Like 'service-file-logger', but doesn't handle the case in which FILE does
 not exist."
-  (let* ((fd     (open-fdes file (logior O_CREAT O_WRONLY O_APPEND) #o640))
+  (let* ((fd     (open-fdes file (logior O_CREAT O_WRONLY O_APPEND O_CLOEXEC)
+                            #o640))
          (output (fdopen fd "al")))
     (set-port-encoding! output "UTF-8")
     (set-port-conversion-strategy! output 'substitute)