[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/02: utils: Use 'which' to find the shell in 'patch-makefile-SHELL'.
From: |
Ludovic Courtès |
Subject: |
01/02: utils: Use 'which' to find the shell in 'patch-makefile-SHELL'. |
Date: |
Fri, 12 Dec 2014 23:06:44 +0000 |
civodul pushed a commit to branch core-updates
in repository guix.
commit 5e5deea9529c0ed2e84235d778256cccc1701df9
Author: Ludovic Courtès <address@hidden>
Date: Sat Dec 13 00:04:25 2014 +0100
utils: Use 'which' to find the shell in 'patch-makefile-SHELL'.
* guix/build/utils.scm (patch-makefile-SHELL)[find-shell]: Use 'which'.
---
guix/build/utils.scm | 4 +---
1 files changed, 1 insertions(+), 3 deletions(-)
diff --git a/guix/build/utils.scm b/guix/build/utils.scm
index de1cfce..01ac896 100644
--- a/guix/build/utils.scm
+++ b/guix/build/utils.scm
@@ -629,9 +629,7 @@ When KEEP-MTIME? is true, the atime/mtime of FILE are kept
unchanged."
;; XXX: Unlike with `patch-shebang', FILE is always touched.
(define (find-shell name)
- (let ((shell
- (search-path (search-path-as-string->list (getenv "PATH"))
- name)))
+ (let ((shell (which name)))
(unless shell
(format (current-error-port)
"patch-makefile-SHELL: warning: no binary for shell `~a' found
in $PATH~%"