<pre style='margin:0'>
Joshua Root (jmroot) pushed a commit to branch master
in repository mpbb.
</pre>
<p><a href="https://github.com/macports/mpbb/commit/3ebc74a13bc795dde303b3964d44bdfa0fb807ef">https://github.com/macports/mpbb/commit/3ebc74a13bc795dde303b3964d44bdfa0fb807ef</a></p>
<pre style="white-space: pre; background: #F8F8F8">The following commit(s) were added to refs/heads/master by this push:
<span style='display:block; white-space:pre;color:#404040;'> new 3ebc74a gather-archives.tcl: normalise supplied paths
</span>3ebc74a is described below
<span style='display:block; white-space:pre;color:#808000;'>commit 3ebc74a13bc795dde303b3964d44bdfa0fb807ef
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Thu May 12 02:58:05 2022 +1000
<span style='display:block; white-space:pre;color:#404040;'> gather-archives.tcl: normalise supplied paths
</span>---
tools/gather-archives.tcl | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
<span style='display:block; white-space:pre;color:#808080;'>diff --git a/tools/gather-archives.tcl b/tools/gather-archives.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index e774944..3dda4da 100755
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/tools/gather-archives.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/tools/gather-archives.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -4,11 +4,6 @@ package require macports
</span> package require registry2
package require fetch_common
<span style='display:block; white-space:pre;background:#ffe0e0;'>-if {[catch {mportinit "" "" ""} result]} {
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- puts stderr "$errorInfo"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>- error "Failed to initialize ports system: $result"
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-}
</span><span style='display:block; white-space:pre;background:#ffe0e0;'>-
</span> set archive_site_private https://packages-private.macports.org
set archive_site_public https://packages.macports.org
set jobs_dir ""
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -25,15 +20,15 @@ while {[string range [lindex $::argv 0] 0 1] eq "--"} {
</span> set ::argv [lreplace $::argv 0 0]
}
--jobs_dir {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set jobs_dir [lindex $::argv 1]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set jobs_dir [file normalize [lindex $::argv 1]]
</span> set ::argv [lreplace $::argv 0 0]
}
--license_db_dir {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set license_db_dir [lindex $::argv 1]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set license_db_dir [file normalize [lindex $::argv 1]]
</span> set ::argv [lreplace $::argv 0 0]
}
--staging_dir {
<span style='display:block; white-space:pre;background:#ffe0e0;'>- set staging_dir [lindex $::argv 1]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ set staging_dir [file normalize [lindex $::argv 1]]
</span> set ::argv [lreplace $::argv 0 0]
}
default {
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -53,6 +48,11 @@ if {[llength $::argv] == 0} {
</span> error "must specify an input file"
}
<span style='display:block; white-space:pre;background:#e0ffe0;'>+if {[catch {mportinit "" "" ""} result]} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ puts stderr "$errorInfo"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+ error "Failed to initialize ports system: $result"
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+}
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span> source ${jobs_dir}/distributable_lib.tcl
if {$license_db_dir ne ""} {
init_license_db $license_db_dir
</pre><pre style='margin:0'>
</pre>