Handle multiple footnote references per line

This commit is contained in:
Ben Edgington
2022-10-31 11:15:15 +00:00
parent 8f1e29e8f5
commit 8960bbc0c0

View File

@@ -87,12 +87,12 @@ while(<$fh>) {
/$newPagePath/ and $pagePath = $2;
# Footnote references
while (/^.+\[\^(.+?)\]/g) {
while (/.\[\^(.+?)\]/g) {
my $fn = $1;
if (exists($fns{$fn})) {
delete $fns{$fn};
} else {
print "Missing footnote: $fn , line $.";
print "Missing footnote: $fn, line $.";
}
}