From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 20 Aug 2020 00:06:19 +0000 (+0100)
Subject: expire-iso8601: report and implement oldest first
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=ab639324da4078031c58e893dbcff000e3bbe9e0;p=chiark-utils.git

expire-iso8601: report and implement oldest first

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

diff --git a/scripts/expire-iso8601 b/scripts/expire-iso8601
index a5f21ea..8d4838f 100755
--- a/scripts/expire-iso8601
+++ b/scripts/expire-iso8601
@@ -184,12 +184,12 @@ sub flag ($) {
 }
 
 sub implement () {
-  foreach (@files) {
+  foreach (reverse @files) {
     next unless @{$_->{U}};
     printf "keep %s for %s - age %.1f\n",
       $_->{F}, "@{$_->{U}}", $_->{A};
   }
-  foreach (@files) {
+  foreach (reverse @files) {
     next if @{$_->{U}};
     printf "remove %s - age %.1f\n",
       $_->{F}, $_->{A};