From ab639324da4078031c58e893dbcff000e3bbe9e0 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 20 Aug 2020 01:06:19 +0100
Subject: [PATCH] expire-iso8601: report and implement oldest first

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 scripts/expire-iso8601 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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};
-- 
2.30.2