06/12: gnu: perf-tools: Patch executable file names.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 0d8739bd6d9f654e366c4b53f58c5914a6fd8391
Author: Olivier Dion <olivier.dion@polymtl.ca>
AuthorDate: Fri Aug 5 11:49:26 2022 -0400

    gnu: perf-tools: Patch executable file names.
    
    * 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 <ludo@gnu.org>
---
 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 @@ line for tracing control, a @code{lttng-ctl} library for 
tracing control and a
                (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 @@ line for tracing control, a @code{lttng-ctl} library for 
tracing control and a
       bash
       coreutils                         ; cat + rm
       gawk
-      gcc-toolchain                     ; objdump + ldconfig
       file
       perf
       perl