me
/
guix
Archived
1
0
Fork 0
Code

build-system/gnu: Augment $PATH with $out for `patch-shebangs'. 

* guix/build/gnu-build-system.scm (patch-shebangs): Add BINDIRS to
  $PATH, and pass that to `patch-shebang'.
master
Ludovic Courtès 2012-08-19 23:05:04 +02:00
parent 525a59d6d3
commit fc484f605c
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
guix/build/gnu-build-system.scm
View File

@ -134,11 +134,13 @@
(string-append dir "/sbin")))) (string-append dir "/sbin"))))
outputs)) outputs))
(let ((path (append bindirs
(search-path-as-string->list (getenv "PATH")))))
(for-each (lambda (dir) (for-each (lambda (dir)
(let ((files (list-of-files dir))) (let ((files (list-of-files dir)))
(for-each patch-shebang files))) (for-each (cut patch-shebang <> path) files)))
bindirs) bindirs)
#t) #t))
(define %standard-phases (define %standard-phases
;; Standard build phases, as a list of symbol/procedure pairs. ;; Standard build phases, as a list of symbol/procedure pairs.