ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 22:08:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: isc-dhcp: Return #t from all phases.

Browse source 
* gnu/packages/admin.scm (isc-dhcp)[arguments]: Use invoke instead of system*,
and return #t from all phases.
This commit is contained in:
Mark H Weaver 2018-04-12 03:51:19 -04:00
parent 8c52aab4e8
commit d6acc9f8fb
No known key found for this signature in database
GPG key ID: 7CEF29847562C516
1 changed files with 10 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
gnu/packages/admin.scm
View file

@ -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"
(invoke "tar" "cf" "bind.tar.gz"
bind-directory
;; avoid non-determinism in the archive
"--sort=name"
"--mtime=@0"
"--owner=root:0"
"--group=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)))