nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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.
This commit is contained in:
Tobias Geerinckx-Rice 2017-10-30 13:28:10 +01:00
parent 2fb83ca6c5
commit b5c7574b2f
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
guix/import/cpan.scm
View File

@ -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))) (json-fetch (string-append "https://fastapi.metacpan.org/v1/release/" name)))
(define (cpan-home 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) (define (cpan-source-url meta)
"Return the download URL for a module's source tarball." "Return the download URL for a module's source tarball."

3
tests/cpan.scm
View File

@ -1,7 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2015 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2016 Alex Sassmannshausen <alex@pompo.co> ;;; Copyright © 2016 Alex Sassmannshausen <alex@pompo.co>
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -98,7 +97,7 @@
('propagated-inputs ('propagated-inputs
('quasiquote ('quasiquote
(("perl-test-script" ('unquote 'perl-test-script))))) (("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") ('synopsis "Fizzle Fuzz")
('description 'fill-in-yourself!) ('description 'fill-in-yourself!)
('license 'perl-license)) ('license 'perl-license))