From 0d8739bd6d9f654e366c4b53f58c5914a6fd8391 Mon Sep 17 00:00:00 2001 From: Olivier Dion Date: Fri, 5 Aug 2022 11:49:26 -0400 Subject: [PATCH] gnu: perf-tools: Patch executable file names. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * gnu/packages/instrumentation.scm (perf-tools)[arguments: Add 'patch-file-names' phase. [inputs]: Remove GCC-TOOLCHAIN, which appears to be redundant and would be retained as a reference due to the new phase. Co-authored-by: Ludovic Courtès --- gnu/packages/instrumentation.scm | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/gnu/packages/instrumentation.scm b/gnu/packages/instrumentation.scm index 2d2f53225c..964e26d40a 100644 --- a/gnu/packages/instrumentation.scm +++ b/gnu/packages/instrumentation.scm @@ -333,7 +333,17 @@ (define-public perf-tools (base32 "1ab735idi0h62yvhzd7822jj3555vygixv4xjrfrdvi8d2hhz6qn")))) (build-system copy-build-system) (arguments - `(#:install-plan + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'patch-file-names + (lambda* (#:key inputs #:allow-other-keys) + (substitute* '("execsnoop" "killsnoop" "kernel/funcslower") + (("/usr/bin/gawk") + (search-input-file inputs "/bin/awk"))) + (substitute* "execsnoop" + (("/usr/bin/getconf") + (search-input-file inputs "/bin/getconf")))))) + #:install-plan ',(append (map (cut list <> "bin/") '("disk/bitesize" @@ -360,7 +370,6 @@ (define-public perf-tools bash coreutils ; cat + rm gawk - gcc-toolchain ; objdump + ldconfig file perf perl