mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-25 13:58:15 -05:00
gnu: isc-dhcp: Return #t from all phases.
* gnu/packages/admin.scm (isc-dhcp)[arguments]: Use invoke instead of system*, and return #t from all phases.
This commit is contained in:
parent
8c52aab4e8
commit
d6acc9f8fb
1 changed files with 10 additions and 9 deletions
|
@ -664,16 +664,16 @@ (define-public isc-dhcp
|
|||
sh " SHELL=" sh))))
|
||||
|
||||
(let ((bind-directory (string-append "bind-" ,bind-version)))
|
||||
(system* "tar" "xf" "bind.tar.gz")
|
||||
(invoke "tar" "xf" "bind.tar.gz")
|
||||
(for-each patch-shebang
|
||||
(find-files bind-directory ".*"))
|
||||
(zero? (system* "tar" "cf" "bind.tar.gz"
|
||||
bind-directory
|
||||
;; avoid non-determinism in the archive
|
||||
"--sort=name"
|
||||
"--mtime=@0"
|
||||
"--owner=root:0"
|
||||
"--group=root:0"))))))
|
||||
(invoke "tar" "cf" "bind.tar.gz"
|
||||
bind-directory
|
||||
;; avoid non-determinism in the archive
|
||||
"--sort=name"
|
||||
"--mtime=@0"
|
||||
"--owner=root:0"
|
||||
"--group=root:0")))))
|
||||
(add-after 'install 'post-install
|
||||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
||||
;; Install the dhclient script for GNU/Linux and make sure
|
||||
|
@ -699,7 +699,8 @@ (define-public isc-dhcp
|
|||
,(map (lambda (dir)
|
||||
(string-append dir "/bin:"
|
||||
dir "/sbin"))
|
||||
(list inetutils net-tools coreutils sed))))))))))
|
||||
(list inetutils net-tools coreutils sed))))
|
||||
#t))))))
|
||||
|
||||
(native-inputs `(("perl" ,perl)))
|
||||
|
||||
|
|
Loading…
Reference in a new issue