Skip to content
Snippets Groups Projects
Unverified Commit 6901b924 authored by Ludovic Courtès's avatar Ludovic Courtès
Browse files

vm: Reset file timestamps of the EFI image in ISO images.

Partly fixes <https://bugs.gnu.org/35283>.

* gnu/build/vm.scm (make-iso9660-image): Set the 'SOURCE_DATE_EPOCH'
environment variable.
parent 833480cc
No related branches found
No related tags found
No related merge requests found
...@@ -37,6 +37,7 @@ (define-module (gnu build vm) ...@@ -37,6 +37,7 @@ (define-module (gnu build vm)
#:use-module (ice-9 popen) #:use-module (ice-9 popen)
#:use-module (srfi srfi-1) #:use-module (srfi srfi-1)
#:use-module (srfi srfi-9) #:use-module (srfi srfi-9)
#:use-module (srfi srfi-19)
#:use-module (srfi srfi-26) #:use-module (srfi srfi-26)
#:export (qemu-command #:export (qemu-command
load-in-linux-vm load-in-linux-vm
...@@ -458,6 +459,15 @@ (define items ...@@ -458,6 +459,15 @@ (define items
closures) closures)
(register-bootcfg-root "/tmp/root" config-file)) (register-bootcfg-root "/tmp/root" config-file))
;; 'grub-mkrescue' calls out to mtools programs to create 'efi.img', a FAT
;; file system image, and mtools honors SOURCE_DATE_EPOCH for the mtime of
;; those files. The epoch for FAT is Jan. 1st 1980, not 1970, so choose
;; that.
(setenv "SOURCE_DATE_EPOCH"
(number->string
(time-second
(date->time-utc (make-date 0 0 0 0 1 1 1980 0)))))
(let ((pipe (let ((pipe
(apply open-pipe* OPEN_WRITE (apply open-pipe* OPEN_WRITE
grub-mkrescue "-o" target grub-mkrescue "-o" target
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment