improved period escape

2008-05-30 18:01:16 -04:00 · 2008-05-30 18:01:16 -04:00 · 4045ee01e5
parent 878bfe008c
commit 4045ee01e5
1 changed files with 1 additions and 1 deletions
--- a/2
+++ b/2
@ -9,7 +9,7 @@ print ".TH $prog $section\n";
 while (<>) {
 	s{(\\?)\[\[([^\s\|\]]+)(\|[^\s\]]+)?\]\]}{$1 ? "[[$2]]" : $2}eg;
 	s/\`//g;
-	s/^\./\\./g;
+	s/^\./\\&./g;
 	if (/^#\s/) {
 		s/^#\s/.SH /;
 		<>; # blank;