[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: build-system/gnu: Do not patch symlinks.
|
From: |
Ludovic Courtès |
|
Subject: |
01/01: build-system/gnu: Do not patch symlinks. |
|
Date: |
Tue, 09 Feb 2016 10:40:38 +0000 |
civodul pushed a commit to branch core-updates
in repository guix.
commit c13a9feb5b64fd819eaed38a17da0284bbe2b8d9
Author: Jan Nieuwenhuizen <address@hidden>
Date: Sat Feb 6 15:59:51 2016 +0100
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 <address@hidden>
---
guix/build/gnu-build-system.scm | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/guix/build/gnu-build-system.scm b/guix/build/gnu-build-system.scm
index 2abaa6e..34edff7 100644
--- a/guix/build/gnu-build-system.scm
+++ b/guix/build/gnu-build-system.scm
@@ -303,7 +303,7 @@ makefiles."
(define (list-of-files dir)
(map (cut string-append dir "/" <>)
(or (scandir dir (lambda (f)
- (let ((s (stat (string-append dir "/" f))))
+ (let ((s (lstat (string-append dir "/" f))))
(eq? 'regular (stat:type s)))))
'())))