07/09: perform-download: Use the ‘git’ command captured at configure time.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit c4a1d69a6966aea71114c1aba0eab161139ff6fe
Author: Ludovic Courtès <l...@gnu.org>
AuthorDate: Mon Sep 11 15:01:24 2023 +0200

    perform-download: Use the ‘git’ command captured at configure time.
    
    * guix/scripts/perform-download.scm (perform-git-download): Pass 
#:git-command
    to ‘git-fetch-with-fallback’.
---
 guix/scripts/perform-download.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/guix/scripts/perform-download.scm 
b/guix/scripts/perform-download.scm
index bb1e51aa30..045dd84ad6 100644
--- a/guix/scripts/perform-download.scm
+++ b/guix/scripts/perform-download.scm
@@ -23,6 +23,7 @@
   #:use-module ((guix store) #:select (derivation-path? store-path?))
   #:autoload   (guix build download) (url-fetch)
   #:autoload   (guix build git) (git-fetch-with-fallback)
+  #:autoload   (guix config) (%git)
   #:use-module (ice-9 match)
   #:export (guix-perform-download))
 
@@ -108,7 +109,8 @@ Note: OUTPUT may differ from the 'out' value of DRV, 
notably for 'bmCheck' or
            (algo       (derivation-output-hash-algo drv-output))
            (hash       (derivation-output-hash drv-output)))
       (git-fetch-with-fallback url commit output
-                               #:recursive? recursive?))))
+                               #:recursive? recursive?
+                               #:git-command %git))))
 
 (define (assert-low-privileges)
   (when (zero? (getuid))