03/03: gnu: tomb: Use system's sudo.

[guix-commits]

bavier pushed a commit to branch master
in repository guix.

commit 257e63044f59915b45aefb323792c6d14e9a8786
Author: Eric Bavier <address@hidden>
Date:   Fri Nov 15 11:02:13 2019 -0600

    gnu: tomb: Use system's sudo.
    
    * gnu/packages/crypto.scm (tomb)[arguments]: Disallow references to the 
"sudo"
    input.  Remove it's path from the wrapper.
---
 gnu/packages/crypto.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/crypto.scm b/gnu/packages/crypto.scm
index ebd1821..559a3c0 100644
--- a/gnu/packages/crypto.scm
+++ b/gnu/packages/crypto.scm
@@ -365,6 +365,10 @@ no man page, refer to the home page for usage details.")
        ("util-linux" ,util-linux)))
     (arguments
      `(#:make-flags (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
+       ;; The "sudo" input is needed only to satisfy dependency checks in the
+       ;; 'check' phase.  The "sudo" used at runtime should come from the
+       ;; system's setuid-programs, so ensure no reference is kept.
+       #:disallowed-references (,sudo)
        ;; TODO: Build and install gtk and qt trays
        #:phases
        (modify-phases %standard-phases
@@ -383,7 +387,7 @@ no man page, refer to the home page for usage details.")
                     ,@(map (lambda (program)
                              (or (and=> (which program) dirname)
                                  (error "program not found:" program)))
-                           '("seq" "mkfs.ext4" "pinentry" "sudo"
+                           '("seq" "mkfs.ext4" "pinentry"
                              "gpg" "cryptsetup" "gettext" "lsof"
                              "qrencode" "steghide" "findmnt")))))
                #t)))