03/07: gnu: perl-ev: Use INVOKE.

[Tobias Geerinckx-Rice]

nckx pushed a commit to branch master
in repository guix.

commit f16faf0f4f2768979565d46fb26182e564cc2145
Author: Tobias Geerinckx-Rice <address@hidden>
Date:   Sat Aug 11 14:46:43 2018 +0200

    gnu: perl-ev: Use INVOKE.
    
    * gnu/packages/libevent.scm (perl-ev)[arguments]: Substitute INVOKE for
    SYSTEM*.
---
 gnu/packages/libevent.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/libevent.scm b/gnu/packages/libevent.scm
index 983c862..629b754 100644
--- a/gnu/packages/libevent.scm
+++ b/gnu/packages/libevent.scm
@@ -5,6 +5,7 @@
 ;;; Copyright © 2016 David Thompson <address@hidden>
 ;;; Copyright © 2017 Marius Bakke <address@hidden>
 ;;; Copyright © 2017 Efraim Flashner <address@hidden>
+;;; Copyright © 2018 Tobias Geerinckx-Rice <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -218,8 +219,8 @@ not rely on XS.")
            ;; to build. Unpack system libev here...
            (lambda* (#:key inputs #:allow-other-keys)
              (mkdir "./libev")
-             (zero? (system* "tar" "-xf" (assoc-ref inputs "libev-source")
-                             "-C" "./libev" "--strip-components=1")))))))
+             (invoke "tar" "-xf" (assoc-ref inputs "libev-source")
+                     "-C" "./libev" "--strip-components=1"))))))
     (native-inputs
      `(("libev-source" ,(package-source libev))
        ("perl-canary-stability" ,perl-canary-stability)))