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

[guix-commits]

sharlatan pushed a commit to branch python-team
in repository guix.

commit 39bf7d5c226191b0f5a16ce46aa1fd9f9f4c7d80
Author: Lars-Dominik Braun <lars@6xq.net>
AuthorDate: Sat May 13 15:31:06 2023 +0200

    build-system/python: Ignore symlinks when changing mtime.
    
    * guix/build/python-build-system.scm (ensure-no-mtimes-pre-1980): Ignore
    'symlink.
---
 guix/build/python-build-system.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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))))