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
This commit is contained in:
Joshua Root
2023-10-27 18:09:06 +11:00
parent b99f249c79
commit 9a73547264
+4
View File
@@ -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]} {