chiark / gitweb /
expire-iso8601: include #0 too
[chiark-utils.git] / scripts / expire-iso8601
index 552b25839cb5e90c591e7e1a10e4ec752be73ea0..324d46310ac1ce03e4c4ac97c396859bcb381973 100755 (executable)
@@ -139,11 +139,11 @@ sub flag ($) {
       print DEBUG "j #$j $files[$j]{A} dt=$dt\n";
       last if $dt > $dmax;
     }
-    last if $j < 0;
     $j++;
     if ($j == $i) {
       $j--;
       print STDERR "insufficiently dense for $spec after $files[$j]{F}\n";
+      last if $j < 0;
     }
     print DEBUG "i #$j\n";