me/guix
Archived
1
0
Fork 0
Code Activity

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

Browse source 
* guix/build/gnu-build-system.scm (patch-shebangs): Add BINDIRS to
  $PATH, and pass that to `patch-shebang'.
This commit is contained in:
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")))) (string-append dir "/sbin"))))
outputs)) outputs))
(for-each (lambda (dir) (let ((path (append bindirs
(let ((files (list-of-files dir))) (search-path-as-string->list (getenv "PATH")))))
(for-each patch-shebang files))) (for-each (lambda (dir)
bindirs) (let ((files (list-of-files dir)))
#t) (for-each (cut patch-shebang <> path) files)))
bindirs)
#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.