[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
11/30: download: Use invoke instead of system*.
From: |
Mark H. Weaver |
Subject: |
11/30: download: Use invoke instead of system*. |
Date: |
Fri, 16 Mar 2018 05:03:36 -0400 (EDT) |
mhw pushed a commit to branch core-updates
in repository guix.
commit 20927c9331b493eaf94211ad9f8a5055e11b4588
Author: Mark H Weaver <address@hidden>
Date: Fri Mar 16 03:40:00 2018 -0400
download: Use invoke instead of system*.
* guix/download.scm (url-fetch/tarbomb, url-fetch/zipbomb): Use invoke.
---
guix/download.scm | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/guix/download.scm b/guix/download.scm
index 55da2c1..50aa78f 100644
--- a/guix/download.scm
+++ b/guix/download.scm
@@ -517,8 +517,8 @@ own. This helper makes it easier to deal with \"tar
bombs\"."
(mkdir #$output)
(setenv "PATH" (string-append #$gzip "/bin"))
(chdir #$output)
- (zero? (system* (string-append #$tar "/bin/tar")
- "xf" #$drv)))
+ (invoke (string-append #$tar "/bin/tar")
+ "xf" #$drv))
#:local-build? #t)))
(define* (url-fetch/zipbomb url hash-algo hash
@@ -546,8 +546,8 @@ own. This helper makes it easier to deal with \"zip
bombs\"."
#~(begin
(mkdir #$output)
(chdir #$output)
- (zero? (system* (string-append #$unzip "/bin/unzip")
- #$drv)))
+ (invoke (string-append #$unzip "/bin/unzip")
+ #$drv))
#:local-build? #t)))
(define* (download-to-store store url #:optional (name (basename url))
- 14/30: gnu: glibc-locales: Use invoke instead of system*., (continued)
- 14/30: gnu: glibc-locales: Use invoke instead of system*., Mark H. Weaver, 2018/03/16
- 03/30: build-system/gnu: Use invoke instead of system*., Mark H. Weaver, 2018/03/16
- 17/30: gnu: tcsh: Use invoke instead of system*., Mark H. Weaver, 2018/03/16
- 23/30: gnu: eudev: Use invoke instead of system*., Mark H. Weaver, 2018/03/16
- 09/30: build-system/scons: Use invoke instead of system*., Mark H. Weaver, 2018/03/16
- 30/30: gnu: attr: Use invoke instead of system*., Mark H. Weaver, 2018/03/16
- 02/30: gnu-dist: Use invoke instead of system*., Mark H. Weaver, 2018/03/16
- 26/30: cvs-download: Use invoke instead of system*., Mark H. Weaver, 2018/03/16
- 22/30: gnu: openssl: Use invoke instead of system*., Mark H. Weaver, 2018/03/16
- 20/30: gnu: zip: Use invoke instead of system*., Mark H. Weaver, 2018/03/16
- 11/30: download: Use invoke instead of system*.,
Mark H. Weaver <=
- 15/30: gnu: glibc/hurd: Use invoke instead of system*., Mark H. Weaver, 2018/03/16
- 29/30: build: emacs-utils: Use invoke instead of system*., Mark H. Weaver, 2018/03/16
- 27/30: svn-download: Use invoke instead of system*., Mark H. Weaver, 2018/03/16
- 13/30: gnu: glibc-utf8-locales: Use invoke instead of system*., Mark H. Weaver, 2018/03/16
- 28/30: hg-download: Use invoke instead of system*., Mark H. Weaver, 2018/03/16
- 24/30: gnu: tzdata: Use invoke instead of system*., Mark H. Weaver, 2018/03/16
- 01/30: packages: patch-and-repack: Use invoke instead of system*., Mark H. Weaver, 2018/03/16
- 16/30: gnu: perl: Use invoke instead of system*., Mark H. Weaver, 2018/03/16
- 25/30: gnu: python-six: Use invoke instead of system*., Mark H. Weaver, 2018/03/16