<pre style='margin:0'>
Joshua Root (jmroot) pushed a commit to branch master
in repository macports-infrastructure.

</pre>
<p><a href="https://github.com/macports/macports-infrastructure/commit/590b55bbc2855be9a3eec9dae64bd2ae22e21e85">https://github.com/macports/macports-infrastructure/commit/590b55bbc2855be9a3eec9dae64bd2ae22e21e85</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 590b55b  delete_old_distfiles: don't list new files
</span>590b55b is described below

<span style='display:block; white-space:pre;color:#808000;'>commit 590b55bbc2855be9a3eec9dae64bd2ae22e21e85
</span>Author: Joshua Root <jmr@macports.org>
AuthorDate: Sat Nov 9 22:48:33 2019 +1100

<span style='display:block; white-space:pre;color:#404040;'>    delete_old_distfiles: don't list new files
</span><span style='display:block; white-space:pre;color:#404040;'>    
</span><span style='display:block; white-space:pre;color:#404040;'>    This should make it safe to run the script while mirroring continues.
</span>---
 jobs/delete_old_distfiles.tcl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

<span style='display:block; white-space:pre;color:#808080;'>diff --git a/jobs/delete_old_distfiles.tcl b/jobs/delete_old_distfiles.tcl
</span><span style='display:block; white-space:pre;color:#808080;'>index 3bee1e8..388b280 100755
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>--- a/jobs/delete_old_distfiles.tcl
</span><span style='display:block; white-space:pre;background:#e0e0ff;'>+++ b/jobs/delete_old_distfiles.tcl
</span><span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -4,6 +4,8 @@
</span> # the current version of any port or by a version existing as a package
 # under packages_root.
 
<span style='display:block; white-space:pre;background:#e0ffe0;'>+set start_time [clock seconds]
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+
</span> if {[llength $argv] == 4 && [lindex $argv 0] eq "-k"} {
     set keepfile [lindex $argv 1]
     set argv [lrange $argv 2 end]
<span style='display:block; white-space:pre;background:#e0e0e0;'>@@ -163,7 +165,7 @@ while {$dirlist ne ""} {
</span>     set dir [lindex $dirlist 0]
     set dirlist [lreplace $dirlist 0 0]
     foreach f [glob -nocomplain -directory $dir *] {
<span style='display:block; white-space:pre;background:#ffe0e0;'>-        if {[file isfile $f] && [lsearch -exact -sorted $distfiles_to_keep [file tail $f]] == -1} {
</span><span style='display:block; white-space:pre;background:#e0ffe0;'>+        if {[file isfile $f] && [file mtime $f] < $start_time && [lsearch -exact -sorted $distfiles_to_keep [file tail $f]] == -1} {
</span>             puts $fd $f
         } elseif {[file isdirectory $f]} {
             lappend dirlist $f
</pre><pre style='margin:0'>

</pre>