TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

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")) (cpio "cpio") (gzip "gzip"))
"Write a cpio archive containing DIRECTORY to file OUTPUT, using CPIO. When "Write a cpio archive containing DIRECTORY to file OUTPUT, using CPIO. When
COMPRESS? is true, compress it using GZIP. On success, return OUTPUT." 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 (let ((pipe (open-pipe* OPEN_WRITE cpio "-o" "-O" output
"-H" "newc" "--null" "-H" "newc" "--null")))
"--no-absolute-filenames")))
(define (print0 file) (define (print0 file)
(format pipe "~a\0" file)) (format pipe "~a\0" file))