~ruther/guix-local

b5c7574b2f6fe7752b02eaaa8a745a35b3beb2a1 — Tobias Geerinckx-Rice 8 years ago 2fb83ca
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.
2 files changed, 2 insertions(+), 3 deletions(-)

M guix/import/cpan.scm
M tests/cpan.scm
M guix/import/cpan.scm => guix/import/cpan.scm +1 -1
@@ 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."

M tests/cpan.scm => tests/cpan.scm +1 -2
@@ 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))