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 e3a8836e6dd6941101f8d2b5aa78aabb61305177..169961a75d6a3cc1137ffd4caa030499d7db0274 100755 (executable)
--- 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;