From b6fd5932fe0935b79b090d4c6e10b5085b83acc6 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 123227e4..0c0e0154 100755
--- a/tools/make_disc_trees.pl
+++ b/tools/make_disc_trees.pl
@@ -193,6 +193,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";