From 99c38268cd1325bb64739217adbeebaae7ae6a84 Mon Sep 17 00:00:00 2001
From: "Ryan C. Gordon" <[EMAIL REDACTED]>
Date: Tue, 28 Feb 2023 12:26:31 -0500
Subject: [PATCH] wikiheaders: Sort pages before listing them in
README/FrontPage.md.
---
build-scripts/wikiheaders.pl | 13 +++++++++----
1 file changed, 9 insertions(+), 4 deletions(-)
diff --git a/build-scripts/wikiheaders.pl b/build-scripts/wikiheaders.pl
index 2927e6df712f..a20b20802d6b 100755
--- a/build-scripts/wikiheaders.pl
+++ b/build-scripts/wikiheaders.pl
@@ -1387,19 +1387,24 @@ sub usage {
}
closedir(DH);
- open(FH, '>', "$wikireadmepath/FrontPage.md") or die("Can't open '$wikireadmepath/FrontPage.md': $!\n");
- print FH "# All READMEs available here\n\n";
-
+ my @pages = ();
opendir(DH, $wikireadmepath) or die("Can't opendir '$wikireadmepath': $!\n");
while (readdir(DH)) {
my $dent = $_;
if ($dent =~ /\A(.*?)\.(mediawiki|md)\Z/) {
my $wikiname = $1;
next if $wikiname eq 'FrontPage';
- print FH "- [$wikiname]($wikiname)\n";
+ push @pages, $wikiname;
}
}
closedir(DH);
+
+ open(FH, '>', "$wikireadmepath/FrontPage.md") or die("Can't open '$wikireadmepath/FrontPage.md': $!\n");
+ print FH "# All READMEs available here\n\n";
+ foreach (sort @pages) {
+ my $wikiname = $_;
+ print FH "- [$wikiname]($wikiname)\n";
+ }
close(FH);
}
}