ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 05:48:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: lsof: Use G-expressions.

Browse source 
* gnu/packages/lsof.scm (lsof)[arguments]: Use G-expressions.

Change-Id: Id086d46c5dbef6028e5eae4df1d2f0b24d4c3d76
This commit is contained in:
Zheng Junjie 2024-10-06 01:33:48 +08:00
parent 05da43104c
commit 780fdb61f6
No known key found for this signature in database
GPG key ID: 3B5AA993E1A2DFF0
1 changed files with 19 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
gnu/packages/lsof.scm
View file

@ -25,6 +25,7 @@ (define-module (gnu packages lsof)
#:use-module (guix packages) #:use-module (guix packages)
#:use-module (guix git-download) #:use-module (guix git-download)
#:use-module (guix build-system gnu) #:use-module (guix build-system gnu)
#:use-module (guix gexp)
#:use-module (guix utils) #:use-module (guix utils)
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (gnu packages autotools) #:use-module (gnu packages autotools)
@ -56,23 +57,24 @@ (define-public lsof
procps ;for ps procps ;for ps
util-linux)) ;for unshare util-linux)) ;for unshare
(arguments (arguments
`(#:phases (modify-phases %standard-phases (list #:phases
(add-after 'unpack 'fix-configure-ac-version #~(modify-phases %standard-phases
;; see https://github.com/lsof-org/lsof/commit/932a0b3b1992497e23fd9b8d31116b9ca9b0f98d (add-after 'unpack 'fix-configure-ac-version
;; to fix tests/case-01-version.bash test fail. ;; see https://github.com/lsof-org/lsof/commit/932a0b3b1992497e23fd9b8d31116b9ca9b0f98d
(lambda _ ;; to fix tests/case-01-version.bash test fail.
(substitute* "configure.ac" (lambda _
(("4\\.99\\.0") (substitute* "configure.ac"
"4.99.3")))) (("4\\.99\\.0")
(add-before 'bootstrap 'disable-failing-tests "4.99.3"))))
(lambda _ (add-before 'bootstrap 'disable-failing-tests
(substitute* "Makefile.am" (lambda _
;; Fails with ‘ERROR!!! client gethostbyaddr() failure’. (substitute* "Makefile.am"
(("(TESTS \\+=.*) tests/LTsock" _ prefix) ;; Fails with ‘ERROR!!! client gethostbyaddr() failure’.
prefix) (("(TESTS \\+=.*) tests/LTsock" _ prefix)
;; Fails because /proc not mounted in sandbox prefix)
(("\tdialects/linux/tests/case-20-epoll.bash \\\\") ;; Fails because /proc not mounted in sandbox
"\\"))))))) (("\tdialects/linux/tests/case-20-epoll.bash \\\\")
"\\")))))))
(synopsis "Display information about open files") (synopsis "Display information about open files")
(description (description
"Lsof stands for LiSt Open Files, and it does just that. "Lsof stands for LiSt Open Files, and it does just that.