[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/03: gnu: netpbm: Use INVOKE.
From: |
guix-commits |
Subject: |
02/03: gnu: netpbm: Use INVOKE. |
Date: |
Wed, 1 Apr 2020 13:05:19 -0400 (EDT) |
nckx pushed a commit to branch master
in repository guix.
commit 079ffbcfaf26826adcee9bb3084794c033416d37
Author: Tobias Geerinckx-Rice <address@hidden>
AuthorDate: Wed Apr 1 18:56:19 2020 +0200
gnu: netpbm: Use INVOKE.
* gnu/packages/netpbm.scm (netpbm)[arguments]: Substitute INVOKE
for SYSTEM*.
---
gnu/packages/netpbm.scm | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/gnu/packages/netpbm.scm b/gnu/packages/netpbm.scm
index 3e99967..af005c6 100644
--- a/gnu/packages/netpbm.scm
+++ b/gnu/packages/netpbm.scm
@@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2015 Andreas Enge <address@hidden>
;;; Copyright © 2015, 2016 Ludovic Courtès <address@hidden>
-;;; Copyright © 2019 Tobias Geerinckx-Rice <address@hidden>
+;;; Copyright © 2019, 2020 Tobias Geerinckx-Rice <address@hidden>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -145,7 +145,7 @@
(add-before 'check 'setup-check
(lambda _
;; install temporarily into /tmp/netpbm
- (system* "make" "package")
+ (invoke "make" "package")
;; remove test requiring X
(substitute* "test/all-in-place.test" (("pamx") ""))
;; do not worry about non-existing file
@@ -168,11 +168,11 @@
(replace 'install
(lambda* (#:key outputs make-flags #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
- (apply system* "make" "package"
+ (apply invoke "make" "package"
(string-append "pkgdir=" out) make-flags)
;; Remove superfluous files.
- (system* "rm" "-r" (string-append out "/link"))
- (system* "rm" "-r" (string-append out "/misc"))
+ (invoke "rm" "-r" (string-append out "/link"))
+ (invoke "rm" "-r" (string-append out "/misc"))
(with-directory-excursion out
(for-each delete-file
'("config_template" "pkginfo" "README"