diff options
author | Lars-Dominik Braun <lars@6xq.net> | 2023-05-13 15:31:06 +0200 |
---|---|---|
committer | Sharlatan Hellseher <sharlatanus@gmail.com> | 2024-12-13 20:15:41 +0000 |
commit | 275123dbd9c5954bc08c52c4ec92dff427153d94 (patch) | |
tree | 853b78b257fbd72a9e9d86f9b3bbc9ebd838ba39 | |
parent | fdc0fefd46a45b70784a4e3f8900cbe593426a9e (diff) | |
download | guix-275123dbd9c5954bc08c52c4ec92dff427153d94.tar.gz guix-275123dbd9c5954bc08c52c4ec92dff427153d94.zip |
build-system/python: Ignore symlinks when changing mtime.
* guix/build/python-build-system.scm (ensure-no-mtimes-pre-1980): Ignore
'symlink.
-rw-r--r-- | guix/build/python-build-system.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/guix/build/python-build-system.scm b/guix/build/python-build-system.scm index aa04664b25..8e18d6d0df 100644 --- a/guix/build/python-build-system.scm +++ b/guix/build/python-build-system.scm @@ -37,6 +37,7 @@ #: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 @@ installed with setuptools." ;; 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)))) |