diff options
| author | Marius Bakke <marius@gnu.org> | 2021-07-21 23:54:10 +0200 |
|---|---|---|
| committer | Marius Bakke <marius@gnu.org> | 2021-07-23 17:26:46 +0200 |
| commit | ea562aba69d8ef8599abdaf2505e3f1f7ecf4d28 (patch) | |
| tree | 32f09c59155eec96932a00f66b582031c53a862c | |
| parent | 09b002622e2113c2f14c11ccd43fa01fd343fb95 (diff) | |
| download | guix-ea562aba69d8ef8599abdaf2505e3f1f7ecf4d28.tar.gz guix-ea562aba69d8ef8599abdaf2505e3f1f7ecf4d28.zip | |
gnu: Python: Do not embed timestamps in wheel files.
* gnu/packages/python.scm (python-3.9)[arguments]: Reset timestamps before
zipping wheels. While at it, remove redundant regex argument.
| -rw-r--r-- | gnu/packages/python.scm | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/gnu/packages/python.scm b/gnu/packages/python.scm index 74af5b3445..0ec790223e 100644 --- a/gnu/packages/python.scm +++ b/gnu/packages/python.scm @@ -26,7 +26,7 @@ ;;; Copyright © 2016, 2017 Nikita <nikita@n0.is> ;;; Copyright © 2016 Dylan Jeffers <sapientech@sapientech@openmailbox.org> ;;; Copyright © 2016 David Craven <david@craven.ch> -;;; Copyright © 2016, 2017, 2018, 2019, 2020 Marius Bakke <mbakke@fastmail.com> +;;; Copyright © 2016, 2017, 2018, 2019, 2020, 2021 Marius Bakke <marius@gnu.org> ;;; Copyright © 2016, 2017 Stefan Reichör <stefan@xsteve.at> ;;; Copyright © 2016 Dylan Jeffers <sapientech@sapientech@openmailbox.org> ;;; Copyright © 2016, 2017 Alex Vong <alexvong1995@gmail.com> @@ -502,7 +502,8 @@ data types.") ;; Delete .exe from embedded .whl (zip) files (for-each (lambda (whl) - (let ((dir "whl-content")) + (let ((dir "whl-content") + (circa-1980 (* 10 366 24 60 60))) (mkdir-p dir) (with-directory-excursion dir (let ((whl (string-append "../" whl))) @@ -510,8 +511,13 @@ data types.") (for-each delete-file (find-files "." "\\.exe$")) (delete-file whl) + ;; Reset timestamps to prevent them from ending + ;; up in the Zip archive. + (ftw "." (lambda (file stat flag) + (utime file circa-1980 circa-1980) + #t)) (apply invoke "zip" "-X" whl - (find-files "." ".*" #:directories? #t)))) + (find-files "." #:directories? #t)))) (delete-file-recursively dir))) (find-files "Lib/ensurepip" "\\.whl$")))) (add-before 'check 'set-TZDIR |