10/19: import: cpan: Use HTTPS for home pages.

[Tobias Geerinckx-Rice]

nckx pushed a commit to branch master
in repository guix.

commit 29f7bf59d5d4d4b848eaedc6766bb4e02cae20d3
Author: Tobias Geerinckx-Rice <address@hidden>
Date:   Sun Oct 29 15:53:23 2017 +0100

    import: cpan: Use HTTPS for home pages.
    
    * guix/import/cpan.scm (cpan-home): Use HTTPS.
    * tests/cpan.scm ("cpan->guix-package"): Expect it.
---
 guix/import/cpan.scm | 2 +-
 tests/cpan.scm       | 3 ++-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/guix/import/cpan.scm b/guix/import/cpan.scm
index 2ef02c4..792da0a 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 "http://search.cpan.org/dist/"; name "/"))
+  (string-append "https://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 e5bd0ae..36712ce 100644
--- a/tests/cpan.scm
+++ b/tests/cpan.scm
@@ -1,6 +1,7 @@
 ;;; 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.
 ;;;
@@ -97,7 +98,7 @@
                    ('propagated-inputs
                     ('quasiquote
                      (("perl-test-script" ('unquote 'perl-test-script)))))
-                   ('home-page "http://search.cpan.org/dist/Foo-Bar/";)
+                   ('home-page "https://search.cpan.org/dist/Foo-Bar/";)
                    ('synopsis "Fizzle Fuzz")
                    ('description 'fill-in-yourself!)
                    ('license 'perl-license))