From 84da4ad4b073e472f1fff747a9fb1952f55e05f9 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sun, 7 Sep 2014 22:57:57 +0200 Subject: linux-initrd: Build cpio archives without '--no-absolute-filenames'. * gnu/build/linux-initrd.scm (write-cpio-archive): Remove '--no-absolute-filenames'. --- gnu/build/linux-initrd.scm | 6 ++++-- 1 file 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 @@ (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)) -- cgit v1.2.3