texlive[61888] Master/tlpkg/TeXLive/TLUtils.pm: Start working on

[commits+preining at tug.org]

Revision: 61888
          http://tug.org/svn/texlive?view=revision&revision=61888
Author:   preining
Date:     2022-02-05 12:02:03 +0100 (Sat, 05 Feb 2022)
Log Message:
-----------
Start working on cacert support for old darwin

Modified Paths:
--------------
    trunk/Master/tlpkg/TeXLive/TLUtils.pm

Modified: trunk/Master/tlpkg/TeXLive/TLUtils.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLUtils.pm	2022-02-05 06:45:52 UTC (rev 61887)
+++ trunk/Master/tlpkg/TeXLive/TLUtils.pm	2022-02-05 11:02:03 UTC (rev 61888)
@@ -2624,6 +2624,22 @@
       setup_one(($isWin ? "w32" : "unix"), $defprog,
                  "$bindir/$dltype/$defprog.$platform", "--version", $tlfirst);
   }
+  # check for curl special stuff on MacOS
+  if (member("curl", @working_downloaders) && platform() =~ m/^darwin/) {
+    #
+    my $use_our_cacert = 0;
+    # TODO
+    # check version of darwin and set $use_our_cacert = 1
+    #
+    if ($use_our_cacert == 1) {
+      my @curlargs = @{$TeXLive::TLConfig::FallbackDownloaderArgs{'curl'}};
+      # can't push new arg at end of list because builtin list ends with
+      # -o to set the output file.
+      unshift (@curlargs, '--cacert', "SOME PATH WE NEED TO DECIDE TODO");
+      $TeXLive::TLConfig::FallbackDownloaderArgs{'curl'} = \@curlargs;
+      debug("TLUtils::setup_programs: curl on old darwin, final curl args: @{$TeXLive::TLConfig::FallbackDownloaderArgs{'curl'}}\n");
+    }
+  }
   # check for wget/ssl support
   if (member("wget", @working_downloaders)) {
     debug("TLUtils::setup_programs: checking for ssl enabled wget\n");