ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-11 13:49:23 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Revert "import: cpan: Use HTTPS for home pages."

Browse source 
This reverts commit 29f7bf59d5: 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 @@ (define (cpan-fetch name)
(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 @@ (define test-source
('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))