escape leading periods

master
Joey Hess 2008-05-30 17:50:59 -04:00
parent e943812dc9
commit b5748518e5
1 changed files with 2 additions and 1 deletions

View File

@ -8,6 +8,8 @@ print ".TH $prog $section\n";
while (<>) { while (<>) {
s{(\\?)\[\[([^\s\|\]]+)(\|[^\s\]]+)?\]\]}{$1 ? "[[$2]]" : $2}eg; s{(\\?)\[\[([^\s\|\]]+)(\|[^\s\]]+)?\]\]}{$1 ? "[[$2]]" : $2}eg;
s/\`//g;
s/^\./\\./g;
if (/^#\s/) { if (/^#\s/) {
s/^#\s/.SH /; s/^#\s/.SH /;
<>; # blank; <>; # blank;
@ -16,7 +18,6 @@ while (<>) {
s/-/\\-/g; s/-/\\-/g;
s/^Warning:.*//g; s/^Warning:.*//g;
s/^$/.PP\n/; s/^$/.PP\n/;
s/\`//g;
s/^\*\s+(.*)/.IP "$1"/; s/^\*\s+(.*)/.IP "$1"/;
next if $_ eq ".PP\n" && $skippara; next if $_ eq ".PP\n" && $skippara;
if (/^.IP /) { if (/^.IP /) {