ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 15:36:20 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: netpbm: Use INVOKE.

Browse source 
* gnu/packages/netpbm.scm (netpbm)[arguments]: Substitute INVOKE
for SYSTEM*.
This commit is contained in:
Tobias Geerinckx-Rice 2020-04-01 18:56:19 +02:00
parent 3853941d25
commit 079ffbcfaf
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
gnu/packages/netpbm.scm
View file

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2015 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2015, 2016 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2019, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; This file is part of GNU Guix.
;;;
@ -145,7 +145,7 @@ (define-syntax drop
(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 @@ (define-syntax drop
(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"