From c29bb909d241e7215e574e93d9799e701cbc6ddb Mon Sep 17 00:00:00 2001 From: Mathieu Othacehe Date: Mon, 22 Jun 2020 20:55:19 +0200 Subject: gnu: fakeroot: Do not assume "sed" and "cut" to be available. * gnu/packages/linux.scm (fakeroot)[inputs]: Add "sed" and "coreutils", [arguments]: substitute "sed" and "cut" by their absolute path in fakeroot script. Rename the associated phase from patch-getopt to patch-script. --- gnu/packages/linux.scm | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm index ccb3e79041..1c34c5a2e1 100644 --- a/gnu/packages/linux.scm +++ b/gnu/packages/linux.scm @@ -6840,12 +6840,18 @@ the superuser to make device nodes.") (substitute* "Makefile" (("/bin/sh") (which "sh"))) #t)) - (add-after 'unpack 'patch-getopt + (add-after 'unpack 'patch-script (lambda* (#:key inputs #:allow-other-keys) (substitute* "scripts/fakeroot.in" (("getopt") (string-append (assoc-ref inputs "util-linux") - "/bin/getopt"))) + "/bin/getopt")) + (("sed") + (string-append (assoc-ref inputs "sed") + "/bin/sed")) + (("cut") + (string-append (assoc-ref inputs "coreutils") + "/bin/cut")) ) #t)) (add-before 'configure 'setenv (lambda _ @@ -6882,7 +6888,9 @@ the superuser to make device nodes.") ("xz" ,xz))) ; for the tests (inputs `(("libcap" ,libcap/next) - ("util-linux" ,util-linux))) + ("util-linux" ,util-linux) + ("sed" ,sed) + ("coreutils" ,coreutils))) (synopsis "Provides a fake root environment") (description "@command{fakeroot} runs a command in an environment where it appears to have root privileges for file manipulation. This is useful -- cgit v1.2.3