expire-iso8601: report and implement oldest first

[chiark-utils.git] / scripts / expire-iso8601

diff --git a/scripts/expire-iso8601 b/scripts/expire-iso8601
index a5f21ea7c2b12becea705b6c526980ccd91f5efd..8d4838f98ff063bd83c9a2e5e5ba9110e96da755 100755 (executable)
--- 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};