~ruther/guix-local: gnu: lsof: Update to 4.88.

9a0569aafe39c620ee16a9ae0c343754f22ccb69 — Ludovic Courtès 11 years ago bff3966

gnu: lsof: Update to 4.88.

Reported by nebuli on #guix.

* gnu/packages/lsof.scm (%ftp-base): New variable.
  (lsof): Update to 4.88.  Add /OLD as alternate URL.

patch browse .tar.gz

1 files changed, 11 insertions(+), 5 deletions(-)

M gnu/packages/lsof.scm

M gnu/packages/lsof.scm => gnu/packages/lsof.scm +11 -5

@@ 23,16 23,22 @@
   #:use-module (guix build-system gnu)
   #:use-module (gnu packages perl))
 
+(define %ftp-base
+  "ftp://lsof.itap.purdue.edu/pub/tools/unix/lsof/")
+
 (define-public lsof
   (package
    (name "lsof")
-   (version "4.87")
+   (version "4.88")
    (source (origin
             (method url-fetch)
-            (uri (string-append "ftp://lsof.itap.purdue.edu/pub/tools/unix/lsof/lsof_"
-                                version ".tar.bz2"))
-            (sha256 (base32
-                     "0b6si72sml7gr9784ak491cxxbm9mx5bh174yg6rrirbv04kgpfz"))))
+            (uri (list (string-append %ftp-base "lsof_"
+                                      version ".tar.bz2")
+                       (string-append %ftp-base "OLD/lsof_"
+                                      version ".tar.bz2")))
+            (sha256
+             (base32
+              "16y9wm26rg81mihnzcbdg8h8vhxmq8kn62ssxb8cqydp4q79nvzy"))))
    (build-system gnu-build-system)
    (inputs `(("perl" ,perl)))
    (arguments