summary refs log tree commit diff
diff options
context:
space:
mode:
authorTobias Geerinckx-Rice <me@tobias.gr>2017-10-30 13:28:10 +0100
committerTobias Geerinckx-Rice <me@tobias.gr>2017-10-30 17:20:42 +0100
commitb5c7574b2f6fe7752b02eaaa8a745a35b3beb2a1 (patch)
treefd006fdb0d2a6505a68ad7f6308028b1ac22c5c7
parent2fb83ca6c513967b611ba242f8f70f04c7af31f0 (diff)
downloadguix-b5c7574b2f6fe7752b02eaaa8a745a35b3beb2a1.tar.gz
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.
-rw-r--r--guix/import/cpan.scm2
-rw-r--r--tests/cpan.scm3
2 files changed, 2 insertions, 3 deletions
diff --git a/guix/import/cpan.scm b/guix/import/cpan.scm
index 792da0ab31..2ef02c43a4 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 36712ceeb7..e5bd0ae3a4 100644
--- a/tests/cpan.scm
+++ b/tests/cpan.scm
@@ -1,7 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2015 Eric Bavier <bavier@member.fsf.org>
 ;;; Copyright © 2016 Alex Sassmannshausen <alex@pompo.co>
-;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
 ;;;
 ;;; 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))