From e5948af08335aa417d87b1de78bb337385b14020 Mon Sep 17 00:00:00 2001
From: Andrew Johnson <anj@anl.gov>
Date: Fri, 15 May 2026 17:17:07 -0500
Subject: [PATCH] Adjust make-notes.pl sorting code to avoid a Perl warning

---
 documentation/make-notes.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/documentation/make-notes.pl b/documentation/make-notes.pl
index 537bb54e4..b6dbe46d6 100644
--- a/documentation/make-notes.pl
+++ b/documentation/make-notes.pl
@@ -59,10 +59,10 @@ if ($opt_d) {
         die "$tool: Can't open '-d' directory: $!\n";
 
     # Get filenames, exclude dot-files, sort <alpha><num><alpha>
+    my $rx = qr/^ (\D+) (\d+) (.*) $/x;
     my @files = sort {
-        my $rx = qr/^ (\D+) (\d+) (.*) $/x;
-        my @a = ($a =~ m/$rx/);
-        my @b = ($b =~ m/$rx/);
+        my @a = ($a =~ m/$rx/, '', '');
+        my @b = ($b =~ m/$rx/, '', '');
         $a[0] cmp $b[0] || $a[1] <=> $b[1] || $a[2] cmp $b[2];
     } grep !m/^ \. \.? $/x, readdir $dh;