me
/
guix
Archived
1
0
Fork 0
Code

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.
master
Marius Bakke 2021-07-21 23:54:10 +02:00
parent 09b002622e
commit ea562aba69
No known key found for this signature in database
GPG Key ID: A2A06DF2A33A54FA
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
gnu/packages/python.scm
View File

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