From 9a735472646136ff02cffc9399fabe2cf8e6fa94 Mon Sep 17 00:00:00 2001 From: Joshua Root Date: Fri, 27 Oct 2023 18:09:06 +1100 Subject: [PATCH] dependencies.tcl: attempt to mitigate 503 errors Ensure that archivefetch is not attempted at all in install_dep_source, since we only get there if it already failed. This should prevent failure from archivefetch getting a 503 for a signature again. This is at best a poor and partial workaround, since archivefetch failing for ports that have an archive available in the first place means that those ports are unnecessarily built from source, and furthermore, fetching the distfiles might fail the same way. See: https://trac.macports.org/ticket/68563 --- tools/dependencies.tcl | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/tools/dependencies.tcl b/tools/dependencies.tcl index dcc46ce..d8318c1 100755 --- a/tools/dependencies.tcl +++ b/tools/dependencies.tcl @@ -497,6 +497,10 @@ proc install_dep_source {portinfo_list} { close_open_mports array unset ::mportinfo_array set ditem [lindex [open_port $depinfo(name)] 0] + # Ensure archivefetch is not attempted at all + set workername [ditem_key $ditem workername] + $workername eval [list set portutil::archive_available_result 0] + $workername eval [list archive_sites] # deactivate ports not needed for this dep if {[catch {deactivate_unneeded depinfo} result]} {