From 9a0569aafe39c620ee16a9ae0c343754f22ccb69 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Thu, 13 Nov 2014 13:58:20 +0100
Subject: 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.
---
 gnu/packages/lsof.scm | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

(limited to 'gnu/packages/lsof.scm')

diff --git a/gnu/packages/lsof.scm b/gnu/packages/lsof.scm
index f7e5ec07de..8062b99d65 100644
--- a/gnu/packages/lsof.scm
+++ b/gnu/packages/lsof.scm
@@ -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
-- 
cgit v1.2.3