guix-commits
[Top][All Lists]
Advanced

[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"



reply via email to

[Prev in Thread] Current Thread [Next in Thread]