From 9c5bca940f3a5bc90769d0880e718b65ee255998 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Wed, 19 Aug 2020 21:48:29 +0100
Subject: [PATCH] expire-8601: wip new version

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

diff --git a/scripts/expire-iso8601.new b/scripts/expire-iso8601.new
index 6c8ffd9..e586e26 100755
--- a/scripts/expire-iso8601.new
+++ b/scripts/expire-iso8601.new
@@ -165,7 +165,7 @@ while (@ARGV && $ARGV[0] =~ m/^-/) {
     while (m/^-./) {
       if (s/^-n/-/) { $rm=0; }
       elsif (s/-r/-/) { $recurse=1; }
-      elsif (s/-D/-/) { open DEBUG, ">&STDERR" or die $!; }
+      elsif (s/-D/-/) { open DEBUG, ">&STDERR" or die $!; DEBUG->autoflush(1) }
       elsif (s/-u(\d+)$//) { $unit=$1; }
       elsif (s/-s(\d+)$//) { $slop=$1; }
       else { badusage "unknown short option $_" }
@@ -184,7 +184,7 @@ $slop //= $unit * 0.1;
 
 foreach (@ARGV) {
   m/^(\d+)x(\d+)$/ or badusage "bad <number>x<interval> $_";
-  push @intervals, { Spec => $&, N => $1, I => $2 };
+  push @intervals, { Spec => $&, N => $1, D => $2 };
 }
 
 scan();
-- 
2.30.2