[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

bug#39708: nfs-service-type broken: rpc.mountd respawns too quickly

From: Maxim Cournoyer
Subject: bug#39708: nfs-service-type broken: rpc.mountd respawns too quickly
Date: Thu, 20 Feb 2020 22:58:23 -0500

The rpc.mountd service, one of the required services for
nfs-service-type, respawns the process quickly until disabled.

Opening the service file,

--8<---------------cut here---------------start------------->8---
    (expand load eval)
            (items lst)
          (let loop
              ((items items)
               (lst lst))
             (null? items)
              (cdr items)
               (car items)
                (car items)
    (set! %load-path
       (cons "/gnu/store/wy6fvwp3dfrp9frckdascrrb9rvn3h3g-module-import"
                (string-append extension "/share/guile/site/"
    (set! %load-compiled-path
                (string-append extension "/lib/guile/"
   (shepherd service)
   (oop goops)
   (guix build utils)
   (guix build syscalls))
  (make <service> #:docstring
        (quote "Run the NFS mountd daemon.")
        (quote #f)
        (quote #t)
"--debug" "all"))
--8<---------------cut here---------------end--------------->8---

The process is launched with the equivalent of:

$ /gnu/store/c7kpr1jh5z3mrkz0yw9am86851y57cq7-nfs-utils-2.4.2/sbin/rpc.mountd \
    --debug all

Which doesn't print any output, but returns cleanly.  The process is
daemonized and runs in the background.

Attempting the equivalent using Shepherd yields the same:

scheme@(guix-user)> ,m (shepherd service)
;;; WARNING: loading compiled file 
;;; In procedure load-thunk-from-memory: incompatible bytecode kind


scheme@(shepherd service)> (make-forkexec-constructor (list 
"--debug" "all"))
$1 = #<procedure 7f472f0dbca0 at ice-9/eval.scm:383:13 rest>
scheme@(shepherd service)> ($1)
$2 = 19655

We get back the PID of the rpc.mountd process, and it lives on.

So, I wonder what is causing Shepherd to respawn the process?


reply via email to

[Prev in Thread] Current Thread [Next in Thread]