Changeset 147456

Timestamp:

Apr 4, 2016, 2:24:27 PM (8 years ago)

Author:

raimue@…

Message:

archivefetch: no fallback to default archive_sites

If a ports tree provides a modified version of a port, falling back to the
default ports tree might fetch a binary archive that was built from a different
Portfile. As this binary archive would not have the expected contents and might
be incompatible, only the archive sites defined for this ports tree should be
checked.

Using any globally defined archive site from archive_sites.conf is fine, as we
expect the user to be aware that this has to match the ports trees as defined
in sources.conf.

File:

• trunk/base/src/package1.0/portarchivefetch.tcl (modified) (1 diff)

trunk/base/src/package1.0/portarchivefetch.tcl

@@ -138 +138 @@
 proc portarchivefetch::get_full_archive_sites_path {} {
     global archive_sites.listfile archive_sites.listpath porturl
-    return [getportresourcepath $porturl [file join ${archive_sites.listpath} ${archive_sites.listfile}]]
+    # look up archive sites only from this ports tree,
+    # do not fallback to the default
+    return [getportresourcepath $porturl [file join ${archive_sites.listpath} ${archive_sites.listfile}] no]
 }