applets/cstd.pl: fix parsing of paragraphs

This commit is contained in:
Pragmatic Software 2022-08-26 11:18:20 -07:00
parent 0edfee6d15
commit c071bf7604
2 changed files with 3 additions and 4 deletions

5
applets/cstd.pl vendored
View File

@ -149,7 +149,7 @@ while ($text =~ m/^([0-9A-Z]+\.[0-9.]*)/msgi) {
my $section_text;
if ($text =~ /(.*?)^(?=\s{0,4}(?!Footnote)[0-9A-Z]+\.)/msg) {
if ($text =~ /(.*?)^(?=(?!Footnote)[0-9A-Z]+\.)/msg) {
$section_text = $1;
} else {
print "No section text, end of file marker found.\n" if $debug >= 4;
@ -157,8 +157,7 @@ while ($text =~ m/^([0-9A-Z]+\.[0-9.]*)/msgi) {
}
if ($section =~ /Footnote/i) {
$section_text =~ s/^\s{4}//ms;
$section_text =~ s/^\s{4}Footnote.*//msi;
$section_text =~ s/^Footnote.*//msi;
$section_text =~ s/^\d.*//ms;
$section_text = $this_section . $section_text;
} elsif ($section_text =~ m/(.*?)$/msg) {

View File

@ -25,7 +25,7 @@ use PBot::Imports;
# These are set by the /misc/update_version script
use constant {
BUILD_NAME => "PBot",
BUILD_REVISION => 4575,
BUILD_REVISION => 4576,
BUILD_DATE => "2022-08-26",
};