diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-09-09 23:01:51 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-09-09 23:27:10 +0200 |
| commit | 0334ef2ab06952df5c6a7582781d16d807e09ea7 (patch) | |
| tree | 11fe8912e46282b1a90a3936ea6c5385e4ffcb59 /gnu/build | |
| parent | 363ccf9fe2e67606edc2ecf0ca70824e7adc1ce0 (diff) | |
linux-initrd: Compress cpio archives deterministically.
* gnu/build/linux-initrd.scm (write-cpio-archive): Use '--no-name'.
Diffstat (limited to 'gnu/build')
| -rw-r--r-- | gnu/build/linux-initrd.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gnu/build/linux-initrd.scm b/gnu/build/linux-initrd.scm index e26c067b499..c65b5aacfa0 100644 --- a/gnu/build/linux-initrd.scm +++ b/gnu/build/linux-initrd.scm | |||
| @@ -72,7 +72,9 @@ COMPRESS? is true, compress it using GZIP. On success, return OUTPUT." | |||
| 72 | #:file->header cpio:file->cpio-header*))) | 72 | #:file->header cpio:file->cpio-header*))) |
| 73 | 73 | ||
| 74 | (or (not compress?) | 74 | (or (not compress?) |
| 75 | (and (zero? (system* gzip "--best" output)) | 75 | ;; Use '--no-name' so that gzip records neither a file name nor a time |
| 76 | ;; stamp in its output. | ||
| 77 | (and (zero? (system* gzip "--best" "--no-name" output)) | ||
| 76 | (rename-file (string-append output ".gz") | 78 | (rename-file (string-append output ".gz") |
| 77 | output)) | 79 | output)) |
| 78 | output)) | 80 | output)) |