Merge commit '118a2189fb203dedc274848833b5431273cb1db5' into main

This commit is contained in:
Sam Lantinga 2022-06-29 17:25:01 -07:00
commit 43f55e6f0a
1 changed files with 7 additions and 3 deletions

View File

@ -597,15 +597,19 @@ while (readdir(DH)) {
next; # only dealing with wiki pages. next; # only dealing with wiki pages.
} }
my $fn = $dent;
$fn =~ s/\..*\Z//;
# Ignore FrontPage.
next if $fn eq 'FrontPage';
# Ignore "Category*" pages. # Ignore "Category*" pages.
next if ($dent =~ /\ACategory/); next if ($fn =~ /\ACategory/);
open(FH, '<', "$wikipath/$dent") or die("Can't open '$wikipath/$dent': $!\n"); open(FH, '<', "$wikipath/$dent") or die("Can't open '$wikipath/$dent': $!\n");
my $current_section = '[start]'; my $current_section = '[start]';
my @section_order = ( $current_section ); my @section_order = ( $current_section );
my $fn = $dent;
$fn =~ s/\..*\Z//;
my %sections = (); my %sections = ();
$sections{$current_section} = ''; $sections{$current_section} = '';