diff options
| author | Mark H Weaver <mhw@netris.org> | 2018-04-12 03:51:19 -0400 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2018-04-12 04:03:02 -0400 |
| commit | d6acc9f8fb44dd787a42c767b217318558128627 (patch) | |
| tree | 601dd9b7fa167f53e756d36da3b2ff555df04aff | |
| parent | 8c52aab4e800c63bc739417f9f1184f821d5ffcf (diff) | |
| download | guix-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.
| -rw-r--r-- | gnu/packages/admin.scm | 19 |
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))) |