mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-18 21:46:35 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

build-system/python: Ignore symlinks when changing mtime.

Browse source 
* guix/build/python-build-system.scm (ensure-no-mtimes-pre-1980): Ignore
'symlink.
This commit is contained in:
Lars-Dominik Braun 2023-05-13 15:31:06 +02:00 committed by Sharlatan Hellseher
parent fdc0fefd46
commit 275123dbd9
No known key found for this signature in database
GPG key ID: 76D727BFF62CD2B5
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
guix/build/python-build-system.scm
View file

@ -37,6 +37,7 @@ (define-module (guix build python-build-system)
#:use-module (srfi srfi-26)
#:export (%standard-phases
add-installed-pythonpath
ensure-no-mtimes-pre-1980
site-packages
python-version
python-build))
@ -270,7 +271,8 @@ (define* (ensure-no-mtimes-pre-1980 #:rest _)
;; timestamps before 1980.
(let ((early-1980 315619200)) ; 1980-01-02 UTC
(ftw "." (lambda (file stat flag)
(unless (<= early-1980 (stat:mtime stat))
(unless (or (<= early-1980 (stat:mtime stat))
(eq? (stat:type stat) 'symlink))
(utime file early-1980 early-1980))
#t))))