gnu: r-curl: Fix patch to respect CURL_CA_BUNDLE.

Fixes <https://debbugs.gnu.org/40262>.

* gnu/packages/cran.scm (r-curl)[arguments]: Ensure CURLOPT_CAINFO actually
gets set.

diff --git a/gnu/packages/cran.scm b/gnu/packages/cran.scm
index 573630f..759b926 100644 (file)
--- a/gnu/packages/cran.scm
+++ b/gnu/packages/cran.scm
@@ -677,7 +677,11 @@ LaTeX.")
                (("if \\(!grepl\\(\"mingw\".*")
                 "if (FALSE)\n"))
              (substitute* "src/handle.c"
-               (("#ifdef _WIN32") "#if 1"))
+               (("/\\* Only set" m)
+                (string-append "\
+const char *_ca_bundle = getenv(\"CURL_CA_BUNDLE\");
+if(_ca_bundle != NULL) { curl_easy_setopt(handle, CURLOPT_CAINFO, _ca_bundle); }
+" m)))
              #t)))))
     (inputs
      `(("libcurl" ,curl)