[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH] import: cpan: Use tls to query api.metacpan.org.
From: |
ng0 |
Subject: |
[PATCH] import: cpan: Use tls to query api.metacpan.org. |
Date: |
Tue, 30 Aug 2016 12:57:47 +0000 |
>From e5fb3767e652af0a94fb9817c81b23f37d676355 Mon Sep 17 00:00:00 2001
From: ng0 <address@hidden>
Date: Tue, 30 Aug 2016 12:52:51 +0000
Subject: [PATCH] import: cpan: Use tls to query api.metacpan.org.
* guix/import/cpan.scm (module->name module)[json-fetch]: Use tls for
api.metacpan.org.
(cpan-fetch-module)[json-fetch]: Likewise.
---
guix/import/cpan.scm | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/guix/import/cpan.scm b/guix/import/cpan.scm
index 213a155..5d393ac 100644
--- a/guix/import/cpan.scm
+++ b/guix/import/cpan.scm
@@ -2,6 +2,7 @@
;;; Copyright © 2014 Eric Bavier <address@hidden>
;;; Copyright © 2015 Mark H Weaver <address@hidden>
;;; Copyright © 2016 Alex Sassmannshausen <address@hidden>
+;;; Copyright © 2016 ng0 <address@hidden>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -83,7 +84,7 @@
"Return the base distribution module for a given module. E.g. the 'ok'
module is distributed with 'Test::Simple', so (module->dist-name \"ok\") would
return \"Test-Simple\""
- (assoc-ref (json-fetch (string-append "http://api.metacpan.org/module/"
+ (assoc-ref (json-fetch (string-append "https://api.metacpan.org/module/"
module))
"distribution"))
@@ -91,7 +92,7 @@ return \"Test-Simple\""
"Return an alist representation of the CPAN metadata for the perl module
MODULE,
or #f on failure. MODULE should be e.g. \"Test::Script\""
;; This API always returns the latest release of the module.
- (json-fetch (string-append "http://api.metacpan.org/release/"
+ (json-fetch (string-append "https://api.metacpan.org/release/"
;; XXX: The 'release' api requires the "release"
;; name of the package. This substitution seems
;; reasonably consistent across packages.
--
2.9.3
--
ng0
For non-prism friendly talk find me on http://www.psyced.org
- [PATCH] import: cpan: Use tls to query api.metacpan.org.,
ng0 <=