mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-11-07 15:36:20 -05:00
gnu: r-rcurl: Respect CURL_CA_BUNDLE variable.
Fixes <https://debbugs.gnu.org/31189> * gnu/packages/statistics.scm (r-rcurl)[arguments]: Patch options to respect CURL_CA_BUNDLE if no "cainfo" option is provided.
This commit is contained in:
parent
82bead7537
commit
8d3dda021a
1 changed files with 12 additions and 0 deletions
|
@ -2734,6 +2734,18 @@ (define-public r-rcurl
|
||||||
"0l7qi45jxlf898n0jazabnam1yyczvqfdknd00bdirhhiplpd1sc"))))
|
"0l7qi45jxlf898n0jazabnam1yyczvqfdknd00bdirhhiplpd1sc"))))
|
||||||
(properties `((upstream-name . "RCurl")))
|
(properties `((upstream-name . "RCurl")))
|
||||||
(build-system r-build-system)
|
(build-system r-build-system)
|
||||||
|
(arguments
|
||||||
|
`(#:phases
|
||||||
|
(modify-phases %standard-phases
|
||||||
|
(add-after 'unpack 'respect-CURL_CA_BUNDLE
|
||||||
|
(lambda _
|
||||||
|
(substitute* "R/options.S"
|
||||||
|
(("\\.els = rev\\(merge\\(list\\(\\.\\.\\.\\), \\.opts\\)\\)" m)
|
||||||
|
(string-append "\
|
||||||
|
certs = Sys.getenv(\"CURL_CA_BUNDLE\")
|
||||||
|
if (certs != \"\") { .opts = merge.list(.opts, list(cainfo=certs)) }
|
||||||
|
" m)))
|
||||||
|
#t)))))
|
||||||
(inputs
|
(inputs
|
||||||
`(("libcurl" ,curl)))
|
`(("libcurl" ,curl)))
|
||||||
(propagated-inputs
|
(propagated-inputs
|
||||||
|
|
Loading…
Reference in a new issue