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

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

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