z572 pushed a commit to branch master
in repository guix.
commit 780fdb61f6dd06a7cdc410504b0cf9b8650fd642
Author: Zheng Junjie <[email protected]>
AuthorDate: Sun Oct 6 01:33:48 2024 +0800
gnu: lsof: Use G-expressions.
* gnu/packages/lsof.scm (lsof)[arguments]: Use G-expressions.
Change-Id: Id086d46c5dbef6028e5eae4df1d2f0b24d4c3d76
---
gnu/packages/lsof.scm | 36 +++++++++++++++++++-----------------
1 file changed, 19 insertions(+), 17 deletions(-)
diff --git a/gnu/packages/lsof.scm b/gnu/packages/lsof.scm
index f3f808ad90..7d849c80b5 100644
--- a/gnu/packages/lsof.scm
+++ b/gnu/packages/lsof.scm
@@ -25,6 +25,7 @@
#:use-module (guix packages)
#:use-module (guix git-download)
#:use-module (guix build-system gnu)
+ #:use-module (guix gexp)
#:use-module (guix utils)
#:use-module (gnu packages)
#:use-module (gnu packages autotools)
@@ -56,23 +57,24 @@
procps ;for ps
util-linux)) ;for unshare
(arguments
- `(#:phases (modify-phases %standard-phases
- (add-after 'unpack 'fix-configure-ac-version
- ;; see
https://github.com/lsof-org/lsof/commit/932a0b3b1992497e23fd9b8d31116b9ca9b0f98d
- ;; to fix tests/case-01-version.bash test fail.
- (lambda _
- (substitute* "configure.ac"
- (("4\\.99\\.0")
- "4.99.3"))))
- (add-before 'bootstrap 'disable-failing-tests
- (lambda _
- (substitute* "Makefile.am"
- ;; Fails with ‘ERROR!!! client gethostbyaddr()
failure’.
- (("(TESTS \\+=.*) tests/LTsock" _ prefix)
- prefix)
- ;; Fails because /proc not mounted in sandbox
- (("\tdialects/linux/tests/case-20-epoll.bash \\\\")
- "\\")))))))
+ (list #:phases
+ #~(modify-phases %standard-phases
+ (add-after 'unpack 'fix-configure-ac-version
+ ;; see
https://github.com/lsof-org/lsof/commit/932a0b3b1992497e23fd9b8d31116b9ca9b0f98d
+ ;; to fix tests/case-01-version.bash test fail.
+ (lambda _
+ (substitute* "configure.ac"
+ (("4\\.99\\.0")
+ "4.99.3"))))
+ (add-before 'bootstrap 'disable-failing-tests
+ (lambda _
+ (substitute* "Makefile.am"
+ ;; Fails with ‘ERROR!!! client gethostbyaddr() failure’.
+ (("(TESTS \\+=.*) tests/LTsock" _ prefix)
+ prefix)
+ ;; Fails because /proc not mounted in sandbox
+ (("\tdialects/linux/tests/case-20-epoll.bash \\\\")
+ "\\")))))))
(synopsis "Display information about open files")
(description
"Lsof stands for LiSt Open Files, and it does just that.
