rekahsoft
/
guix
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

download: Use invoke instead of system*. 

* guix/download.scm (url-fetch/tarbomb, url-fetch/zipbomb): Use invoke.
This commit is contained in:
Mark H Weaver 2018-03-16 03:40:00 -04:00
parent ad1656dc91
commit 20927c9331
No known key found for this signature in database
GPG Key ID: 7CEF29847562C516
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
guix/download.scm
View File

@ -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))