From b1c7968d1a85efaec28360c2e598b49b1a3ef68c Mon Sep 17 00:00:00 2001
From: Andreas Koenig <andk@cpan.org>
Date: Sun, 31 Dec 2017 15:28:30 +0100
Subject: [PATCH] turn the sequence around and add edge cases we never
 considered but happen

- really many releases in short time
---
 bin/call-analoep.pl | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/bin/call-analoep.pl b/bin/call-analoep.pl
index 52b1f2ea..a9aa5fb5 100644
--- a/bin/call-analoep.pl
+++ b/bin/call-analoep.pl
@@ -63,12 +63,15 @@ if ($Opt{help}) {
 
 my @p = (
     { k => 3, m => 365, f => 'dir' },
-    { k => 3, m => 365, f => 'tar' },
-    { k => 4, m => 90 },
-    { k => 5, m => 80 },
-    { k => 8, m => 70 },
-    { k => 10, m => 60 },
-    { k => 12, m => 50 }, # as long a we have more than 12, we remove everything older 50
+    { k => 18, m =>  20 }, # as long a we have more than 18, we remove everything older 20
+    { k => 16, m =>  30 },
+    { k => 14, m =>  40 },
+    { k => 12, m =>  50 },
+    { k => 10, m =>  60 },
+    { k =>  8, m =>  70 },
+    { k =>  5, m =>  80 },
+    { k =>  4, m =>  90 },
+    { k =>  3, m => 365, f => 'tar' },
 );
 
 PARAMCOMBI: for my $p (@p) {
-- 
2.11.4.GIT