diff --git a/build-scripts/wikiheaders.pl b/build-scripts/wikiheaders.pl index 80a15d3d6..59b093542 100755 --- a/build-scripts/wikiheaders.pl +++ b/build-scripts/wikiheaders.pl @@ -28,11 +28,15 @@ sub wordwrap_with_bullet_indent { # don't call this directly. my $str = shift; my $retval = ''; + #print("WORDWRAP BULLET ('$bullet'):\n\n$str\n\n"); + # You _can't_ (at least with Pandoc) have a bullet item with a newline in # MediaWiki, so _remove_ wrapping! if ($wordwrap_mode eq 'mediawiki') { $retval = "$bullet$str"; $retval =~ s/\n/ /gms; + $retval =~ s/\s+$//gms; + #print("WORDWRAP BULLET DONE:\n\n$retval\n\n"); return "$retval\n"; } @@ -105,6 +109,8 @@ sub wordwrap { #print("\n\nWORDWRAP:\n\n$str\n\n\n"); + $str =~ s/\A\n+//ms; + while ($str =~ s/(.*?)(\`\`\`.*?\`\`\`|\)//ms) { #print("\n\nWORDWRAP BLOCK:\n\n$1\n\n ===\n\n$2\n\n\n"); $retval .= wordwrap_paragraphs($1); # wrap it.