mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-20 06:37:08 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: perf-tools: Patch executable file names.

Browse source 
* 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>
This commit is contained in:
Olivier Dion 2022-08-05 11:49:26 -04:00 committed by Ludovic Courtès
parent dc9a5257a9
commit 0d8739bd6d
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 11 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
gnu/packages/instrumentation.scm
View file

@ -333,7 +333,17 @@ (define-public perf-tools
(base32 "1ab735idi0h62yvhzd7822jj3555vygixv4xjrfrdvi8d2hhz6qn")))) (base32 "1ab735idi0h62yvhzd7822jj3555vygixv4xjrfrdvi8d2hhz6qn"))))
(build-system copy-build-system) (build-system copy-build-system)
(arguments (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 ',(append
(map (cut list <> "bin/") (map (cut list <> "bin/")
'("disk/bitesize" '("disk/bitesize"
@ -360,7 +370,6 @@ (define-public perf-tools
bash bash
coreutils ; cat + rm coreutils ; cat + rm
gawk gawk
gcc-toolchain ; objdump + ldconfig
file file
perf perf
perl perl