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

gnu: lsof: Update to 4.94.0.

Browse source 
* gnu/packages/lsof.scm (lsof): Update to 4.94.0.
[source]: Switch to new git upstream.
[native-inputs]: Add groff.
[arguments]: Remove custom 'unpack phase.  Add a 'build-man-page phase.
Remove the upstreamed glibc@2.28 test fix.
This commit is contained in:
Tobias Geerinckx-Rice 2020-11-23 03:47:51 +01:00
parent 83371ccddd
commit 518b21e058
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 18 additions and 37 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

55
gnu/packages/lsof.scm
View file

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013 Andreas Enge <andreas@enge.fr>
;;; Copyright © 2017 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2019 Ludovic Courtès <ludo@gnu.org>
;;;
;;; This file is part of GNU Guix.
@ -22,49 +22,31 @@
(define-module (gnu packages lsof)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix git-download)
#:use-module (guix build-system gnu)
#:use-module (gnu packages groff)
#:use-module (gnu packages perl))
(define-public lsof
(package
(name "lsof")
(version "4.91")
(version "4.94.0")
(source
(origin
(method url-fetch)
(uri
(apply append
(map
(lambda (mirror-uri)
(let ((tarball (string-append name "_" version ".tar.bz2")))
(list
(string-append mirror-uri "/" tarball)
;; Upon every new release, the previous one is moved here:
(string-append mirror-uri "/OLD/" tarball))))
(list
"ftp://lsof.itap.purdue.edu/pub/tools/unix/lsof/"
;; Add mirrors because the canonical FTP server at purdue.edu
;; bails out when it cannot do a reverse DNS lookup, as noted
;; at <https://people.freebsd.org/~abe/>.
"ftp://ftp.fu-berlin.de/pub/unix/tools/lsof/"
(string-append "http://www.mirrorservice.org/sites/"
"lsof.itap.purdue.edu/pub/tools/unix/lsof")
(string-append "ftp://ftp.mirrorservice.org/sites/"
"lsof.itap.purdue.edu/pub/tools/unix/lsof")))))
(method git-fetch)
(uri (git-reference
(url "https://github.com/lsof-org/lsof")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "18sh4hbl9jw2szkf0gvgan8g13f3g4c6s2q9h3zq5gsza9m99nn9"))))
(base32 "0yxv2jg6rnzys49lyrz9yjb4knamah4xvlqj596y6ix3vm4k3chp"))))
(build-system gnu-build-system)
(native-inputs `(("perl" ,perl)))
(native-inputs
`(("groff" ,groff) ; for soelim
("perl" ,perl)))
(arguments
`(#:phases
(modify-phases %standard-phases
(replace 'unpack
(lambda* (#:key source #:allow-other-keys)
(let ((unpack (assoc-ref %standard-phases 'unpack)))
(unpack #:source source)
(unpack #:source (car (find-files "." "\\.tar$"))))))
(replace 'configure
(lambda _
(setenv "LSOF_CC" "gcc")
@ -83,14 +65,13 @@ (define-public lsof
(substitute* "Makefile"
(("`date`") "`date --date=@1`"))
#t))
(add-after 'build 'build-man-page
(lambda _
(with-output-to-file "lsof.8"
(lambda _ (invoke "soelim" "Lsof.8")))
#t))
(add-before 'check 'disable-failing-tests
(lambda _
;; In libc 2.28, the 'major' and 'minor' macros are provided by
;; <sys/sysmacros.h> only so include it.
(substitute* "tests/LTlib.c"
(("#ifndef lint")
"#include <sys/sysmacros.h>\n\n#ifndef lint"))
(substitute* "tests/Makefile"
;; Fails with ‘ERROR!!! client gethostbyaddr() failure’.
(("(STDTST=.*) LTsock" _ prefix) prefix)