Clearer variables.

This commit is contained in:
2026-04-01 13:34:40 +02:00
parent 88b630bdf1
commit da32b78e98

5
ccc
View File

@@ -192,8 +192,9 @@ sub extract_section_numbers {
my @sections; my @sections;
# Find section header numbers with Windows lines # Find section header numbers with Windows lines
while($html =~ /\r\n<[p|P] class=MsoNormal[^>]*>(<i[^>]*>)?(\d{1,4})/g) { while($html =~ /\r\n<[pP] class=MsoNormal[^>]*>(<i[^>]*>)?(\d{1,4})/g) {
push @sections, $2; my $section_num = $2;
push @sections, $section_num;
} }
return @sections; return @sections;