[shepherd] 02/02: service: Create listening sockets with SOCK_NONBLOCK.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository shepherd.

commit 5c3a6188e2a3c19163a87264e4e0abf7059bea5d
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Wed Aug 31 11:00:38 2022 +0200

    service: Create listening sockets with SOCK_NONBLOCK.
    
    * modules/shepherd/service.scm (endpoint->listening-socket): Add
    SOCK_NONBLOCK to the second argument of 'socket' instead of calling
    'non-blocking-port'.
---
 modules/shepherd/service.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/modules/shepherd/service.scm b/modules/shepherd/service.scm
index 644f5a8..c106966 100644
--- a/modules/shepherd/service.scm
+++ b/modules/shepherd/service.scm
@@ -1290,8 +1290,9 @@ permissions for its parent directory."
   (match endpoint
     (($ <endpoint> name address style backlog
                    owner group permissions)
-     (let* ((sock    (non-blocking-port
-                      (socket (sockaddr:fam address) style 0)))
+     (let* ((sock    (socket (sockaddr:fam address)
+                             (logior SOCK_NONBLOCK style)
+                             0))
             (owner   (if (integer? owner)
                          owner
                          (passwd:uid (getpwnam owner))))