build-system/gnu: Do not patch symlinks.
This fixes location-aware scripts. * guix/build/gnu-build-system.scm (patch-shebangs)[list-of-files]: Use 'lstat' instead of 'stat'. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
parent
939c5c31d6
commit
c13a9feb5b
|
@ -303,7 +303,7 @@ makefiles."
|
||||||
(define (list-of-files dir)
|
(define (list-of-files dir)
|
||||||
(map (cut string-append dir "/" <>)
|
(map (cut string-append dir "/" <>)
|
||||||
(or (scandir dir (lambda (f)
|
(or (scandir dir (lambda (f)
|
||||||
(let ((s (stat (string-append dir "/" f))))
|
(let ((s (lstat (string-append dir "/" f))))
|
||||||
(eq? 'regular (stat:type s)))))
|
(eq? 'regular (stat:type s)))))
|
||||||
'())))
|
'())))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue