futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gnu: perl-ev: Use INVOKE.

Browse Source 
* gnu/packages/libevent.scm (perl-ev)[arguments]: Substitute INVOKE for
SYSTEM*.
This commit is contained in:
Tobias Geerinckx-Rice 2018-08-11 14:46:43 +02:00
parent aadfc7b02b
commit f16faf0f4f
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gnu/packages/libevent.scm
View File

@ -5,6 +5,7 @@
;;; Copyright © 2016 David Thompson <davet@gnu.org> ;;; Copyright © 2016 David Thompson <davet@gnu.org>
;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com> ;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2017 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2017 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -218,8 +219,8 @@ not rely on XS.")
;; to build. Unpack system libev here... ;; to build. Unpack system libev here...
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(mkdir "./libev") (mkdir "./libev")
(zero? (system* "tar" "-xf" (assoc-ref inputs "libev-source") (invoke "tar" "-xf" (assoc-ref inputs "libev-source")
"-C" "./libev" "--strip-components=1"))))))) "-C" "./libev" "--strip-components=1"))))))
(native-inputs (native-inputs
`(("libev-source" ,(package-source libev)) `(("libev-source" ,(package-source libev))
("perl-canary-stability" ,perl-canary-stability))) ("perl-canary-stability" ,perl-canary-stability)))