From 7531d32437c8b191eec6d0218ec9ff17cf9e1e9d 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 d3257033..f13911de 100755
--- a/tools/make_disc_trees.pl
+++ b/tools/make_disc_trees.pl
@@ -195,6 +195,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";