From f5c702c45c41519a509940086250a14973274bc6 Mon Sep 17 00:00:00 2001
From: Steve McIntyre <steve@einval.com>
Date: Wed, 28 Feb 2024 00:48:10 +0000
Subject: [PATCH] make_disc_trees.pl: Fix $disknum handling for incomplete sets

---
 tools/make_disc_trees.pl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/tools/make_disc_trees.pl b/tools/make_disc_trees.pl
index ff62477c..c1a87768 100755
--- a/tools/make_disc_trees.pl
+++ b/tools/make_disc_trees.pl
@@ -191,6 +191,7 @@ while (defined (my $pkg = <INLIST>)) {
         if ($disknum > $maxcds) {
             print LOG "Disk $disknum is beyond the configured MAXCDS of $maxcds; exiting now...\n";
             $max_done = 1;
+            $disknum--;
             last;
         }
         print LOG "Starting new disc $disknum at " . `date` . "\n";