From a0d4c891e6cf3522c6769e82d888d906445363f5 Mon Sep 17 00:00:00 2001 Message-ID: In-Reply-To: References: From: Lars-Dominik Braun Date: Sat, 13 May 2023 15:31:22 +0200 Subject: [PATCH 3/8] gnu: criu: Change file mtimes to fix build. * gnu/packages/virtualization.scm (criu)[arguments]: Add python-build-system to #:modules and #:imported modules, add phase 'ensure-no-mtimes-pre-1980. --- gnu/packages/virtualization.scm | 20 ++++++++------------ 1 file changed, 8 insertions(+), 12 deletions(-) diff --git a/gnu/packages/virtualization.scm b/gnu/packages/virtualization.scm index 9556fbc61e..04059fc73e 100644 --- a/gnu/packages/virtualization.scm +++ b/gnu/packages/virtualization.scm @@ -143,6 +143,7 @@ (define-module (gnu packages virtualization) #:use-module (guix git-download) #:use-module (guix gexp) #:use-module ((guix licenses) #:prefix license:) + #:use-module (guix modules) #:use-module (guix packages) #:use-module (guix utils) #:use-module (srfi srfi-1) @@ -1750,8 +1751,12 @@ (define-public criu (string-append "XMLTO=" (search-input-file %build-inputs "/bin/xmlto"))) - #:modules ((ice-9 ftw) - ,@%gnu-build-system-modules) + #:modules ((guix build gnu-build-system) + (guix build utils) + ((guix build python-build-system) + #:select (ensure-no-mtimes-pre-1980))) + #:imported-modules ,(append %gnu-build-system-modules + %python-build-system-modules) #:phases (modify-phases %standard-phases (delete 'configure) ; no configure script @@ -1774,17 +1779,8 @@ (define-public criu (substitute* "criu/include/plugin.h" (("/var") (string-append (assoc-ref outputs "out")))) )) - ;; TODO: use - ;; (@@ (guix build python-build-system) ensure-no-mtimes-pre-1980) - ;; when it no longer throws due to trying to call UTIME on symlinks. (add-after 'unpack 'ensure-no-mtimes-pre-1980 - (lambda _ - (let ((early-1980 315619200)) ; 1980-01-02 UTC - (ftw "." (lambda (file stat flag) - (unless (or (<= early-1980 (stat:mtime stat)) - (eq? (stat:type stat) 'symlink)) - (utime file early-1980 early-1980)) - #t))))) + ensure-no-mtimes-pre-1980) (add-before 'build 'fix-symlink (lambda* (#:key inputs #:allow-other-keys) ;; The file 'images/google/protobuf/descriptor.proto' points to -- 2.41.0