aboutsummaryrefslogtreecommitdiff
path: root/gnu/packages/admin.scm
diff options
context:
space:
mode:
authorMark H Weaver <mhw@netris.org>2018-04-12 03:51:19 -0400
committerMark H Weaver <mhw@netris.org>2018-04-12 04:03:02 -0400
commitd6acc9f8fb44dd787a42c767b217318558128627 (patch)
tree601dd9b7fa167f53e756d36da3b2ff555df04aff /gnu/packages/admin.scm
parent8c52aab4e800c63bc739417f9f1184f821d5ffcf (diff)
downloadguix-d6acc9f8fb44dd787a42c767b217318558128627.tar
guix-d6acc9f8fb44dd787a42c767b217318558128627.tar.gz
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.
Diffstat (limited to 'gnu/packages/admin.scm')
-rw-r--r--gnu/packages/admin.scm19
1 files changed, 10 insertions, 9 deletions
diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm
index d6deceff97..de9ed003dd 100644
--- a/gnu/packages/admin.scm
+++ b/gnu/packages/admin.scm
@@ -664,16 +664,16 @@ connection alive.")
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 @@ connection alive.")
,(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)))