01/01: gnu: r-rcurl: Respect CURL_CA_BUNDLE variable.

[Ricardo Wurmus]

rekado pushed a commit to branch rhel6
in repository guix.

commit fa4f08d38aa54fdf53b9a9038efc553624621775
Author: Ricardo Wurmus <address@hidden>
Date:   Tue Apr 17 12:48:48 2018 +0200

    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.
---
 gnu/packages/statistics.scm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/gnu/packages/statistics.scm b/gnu/packages/statistics.scm
index 8afccb0..6934b48 100644
--- a/gnu/packages/statistics.scm
+++ b/gnu/packages/statistics.scm
@@ -2733,6 +2733,18 @@ engine (version 3.8.8.2) is included.")
                 "0l7qi45jxlf898n0jazabnam1yyczvqfdknd00bdirhhiplpd1sc"))))
     (properties `((upstream-name . "RCurl")))
     (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
      `(("libcurl" ,curl)))
     (propagated-inputs