02/06: gnu: lsof: Add mirrors.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit d45d8904b08fc16253ae8167e82ebfb593265ea9
Author: Ludovic Courtès <address@hidden>
Date:   Mon Apr 6 20:50:35 2015 +0200

    gnu: lsof: Add mirrors.
    
    Reported by Tomáš Čech.
    
    * gnu/packages/lsof.scm (lsof)[source]: Add two mirrors.
---
 gnu/packages/lsof.scm |   12 +++++++++++-
 1 files changed, 11 insertions(+), 1 deletions(-)

diff --git a/gnu/packages/lsof.scm b/gnu/packages/lsof.scm
index 8062b99..da42957 100644
--- a/gnu/packages/lsof.scm
+++ b/gnu/packages/lsof.scm
@@ -35,7 +35,17 @@
             (uri (list (string-append %ftp-base "lsof_"
                                       version ".tar.bz2")
                        (string-append %ftp-base "OLD/lsof_"
-                                      version ".tar.bz2")))
+                                      version ".tar.bz2")
+
+                       ;; Add mirrors because the FTP server at purdue.edu
+                       ;; bails out when it cannot do a reverse DNS lookup, as
+                       ;; noted at <http://people.freebsd.org/~abe/>.
+                       (string-append
+                        "ftp://ftp.fu-berlin.de/pub/unix/tools/lsof/lsof_";
+                        version ".tar.bz2")
+                       (string-append
+                        "ftp://sunsite.ualberta.ca/pub/Mirror/lsof/lsof_";
+                        version ".tar.bz2")))
             (sha256
              (base32
               "16y9wm26rg81mihnzcbdg8h8vhxmq8kn62ssxb8cqydp4q79nvzy"))))