From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 19 Aug 2020 20:55:37 +0000 (+0100)
Subject: expire-8601: wip new version, sort of works, need adj
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=chiark-utils.git;a=commitdiff_plain;h=5cecd87687d6898f12e79ff0baa331dae1612895

expire-8601: wip new version, sort of works, need adj

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/scripts/expire-iso8601.new b/scripts/expire-iso8601.new
index e3a8836..169961a 100755
--- a/scripts/expire-iso8601.new
+++ b/scripts/expire-iso8601.new
@@ -131,7 +131,6 @@ sub flag ($) {
     for (;;) {
       $j--;
       last if $j < 0;
-      last if $files[$j];
       my $dt = $files[$i]{A} - $files[$j]{A};
       print DEBUG "j #$j $files[$j]{A} dt=$dt\n";
       last if $dt >= $dmin;