08/10: Revert "import: cpan: Use HTTPS for home pages."

[Tobias Geerinckx-Rice]

nckx pushed a commit to branch master
in repository guix.

commit b5c7574b2f6fe7752b02eaaa8a745a35b3beb2a1
Author: Tobias Geerinckx-Rice <address@hidden>
Date:   Mon Oct 30 13:28:10 2017 +0100

    Revert "import: cpan: Use HTTPS for home pages."
    
    This reverts commit 29f7bf59d5d4d4b848eaedc6766bb4e02cae20d3: HTTPS support
    at search.cpan.org is unreliable, at best.  Don't rely on it.
---
 guix/import/cpan.scm | 2 +-
 tests/cpan.scm       | 3 +--
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/guix/import/cpan.scm b/guix/import/cpan.scm
index 792da0a..2ef02c4 100644
--- a/guix/import/cpan.scm
+++ b/guix/import/cpan.scm
@@ -116,7 +116,7 @@ or #f on failure.  MODULE should be e.g. \"Test::Script\""
   (json-fetch (string-append "https://fastapi.metacpan.org/v1/release/"; name)))
 
 (define (cpan-home name)
-  (string-append "https://search.cpan.org/dist/"; name "/"))
+  (string-append "http://search.cpan.org/dist/"; name "/"))
 
 (define (cpan-source-url meta)
   "Return the download URL for a module's source tarball."
diff --git a/tests/cpan.scm b/tests/cpan.scm
index 36712ce..e5bd0ae 100644
--- a/tests/cpan.scm
+++ b/tests/cpan.scm
@@ -1,7 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2015 Eric Bavier <address@hidden>
 ;;; Copyright © 2016 Alex Sassmannshausen <address@hidden>
-;;; Copyright © 2017 Tobias Geerinckx-Rice <address@hidden>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -98,7 +97,7 @@
                    ('propagated-inputs
                     ('quasiquote
                      (("perl-test-script" ('unquote 'perl-test-script)))))
-                   ('home-page "https://search.cpan.org/dist/Foo-Bar/";)
+                   ('home-page "http://search.cpan.org/dist/Foo-Bar/";)
                    ('synopsis "Fizzle Fuzz")
                    ('description 'fill-in-yourself!)
                    ('license 'perl-license))