ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 13:58:15 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

linux-initrd: Build cpio archives without '--no-absolute-filenames'.

Browse source 
* gnu/build/linux-initrd.scm (write-cpio-archive): Remove
  '--no-absolute-filenames'.
This commit is contained in:
Ludovic Courtès 2014-09-07 22:57:57 +02:00
parent e46db7728d
commit 84da4ad4b0
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gnu/build/linux-initrd.scm
View file

@ -35,9 +35,11 @@ (define* (write-cpio-archive output directory
(cpio "cpio") (gzip "gzip"))
"Write a cpio archive containing DIRECTORY to file OUTPUT, using CPIO. When
COMPRESS? is true, compress it using GZIP. On success, return OUTPUT."
;; Note: don't use '--no-absolute-filenames' since that strips leading
;; slashes from symlink targets.
(let ((pipe (open-pipe* OPEN_WRITE cpio "-o" "-O" output
"-H" "newc" "--null"
"--no-absolute-filenames")))
"-H" "newc" "--null")))
(define (print0 file)
(format pipe "~a\0" file))