summaryrefslogtreecommitdiff
path: root/gnu/build/linux-initrd.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-09-07 22:57:57 +0200
committerLudovic Courtès <ludo@gnu.org>2014-09-08 00:03:38 +0200
commit84da4ad4b073e472f1fff747a9fb1952f55e05f9 (patch)
tree0db6d5a346dc1e6db4f2e0e09cff20ee66fa9814 /gnu/build/linux-initrd.scm
parente46db7728db1b2ba2e826fe57a8d23fed11049a1 (diff)
linux-initrd: Build cpio archives without '--no-absolute-filenames'.
* gnu/build/linux-initrd.scm (write-cpio-archive): Remove '--no-absolute-filenames'.
Diffstat (limited to 'gnu/build/linux-initrd.scm')
-rw-r--r--gnu/build/linux-initrd.scm6
1 files changed, 4 insertions, 2 deletions
diff --git a/gnu/build/linux-initrd.scm b/gnu/build/linux-initrd.scm
index 8caeba8722..bf60137e8f 100644
--- a/gnu/build/linux-initrd.scm
+++ b/gnu/build/linux-initrd.scm
@@ -35,9 +35,11 @@
(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))