mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-02-02 16:17:27 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: lcov: Patch reference to 'find' command.

Browse source 
Fixes <https://issues.guix.gnu.org/63517>.
Reported by Luca Cirrottola <luca.cirrottola@inria.fr>.

* gnu/packages/code.scm (lcov)[arguments]: Rename 'patch-pwd' phase to
'patch-references-to-commands', and patch reference to 'find'.
This commit is contained in:
Ludovic Courtès 2023-05-22 12:11:01 +02:00 committed by Ludovic Courtès
parent 849286ba66
commit 88a2871d8f
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 9 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
gnu/packages/code.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013, 2015, 2018, 2020, 2021 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013, 2015, 2018, 2020, 2021, 2023 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2013, 2015 Andreas Enge <andreas@enge.fr> ;;; Copyright © 2013, 2015 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2015, 2018 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2015, 2018 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2016, 2017, 2019-2023 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016, 2017, 2019-2023 Efraim Flashner <efraim@flashner.co.il>
@ -562,16 +562,19 @@ (define-public lcov
(assoc-ref %outputs "out"))) (assoc-ref %outputs "out")))
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(add-after 'unpack 'patch-pwd (add-after 'unpack 'patch-references-to-commands
;; Lift the requirement of having a shell in PATH. (lambda* (#:key inputs #:allow-other-keys)
(lambda _ ;; Lift the requirement of having a shell and 'find' in PATH.
(substitute* "bin/geninfo" (substitute* "bin/geninfo"
(("qw/abs_path/") (("qw/abs_path/")
"qw/abs_path getcwd/")) "qw/abs_path getcwd/"))
(substitute* '("bin/lcov" "bin/geninfo") (substitute* '("bin/lcov" "bin/geninfo")
(("`pwd`") (("`pwd`")
"getcwd()")) "getcwd()")
#t)) (("`find ")
(string-append "`"
(search-input-file inputs "/bin/find")
" ")))))
(delete 'configure) ;no configure script (delete 'configure) ;no configure script
(add-after 'install 'wrap (add-after 'install 'wrap
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)