Only pull up punctuation which is followed by whitespace.

git-svn-id: svn+ssh://svn.openpam.org/svn/openpam/trunk@541 185d5e19-27fe-0310-9dcf-9bff6b9f3609
remotes/origin/tags/openpam-20120526
Dag-Erling Smørgrav 2012-03-31 21:15:44 +00:00
parent 98687ed638
commit 10215cdd1e
1 changed files with 1 additions and 1 deletions

View File

@ -311,7 +311,7 @@ sub parse_source($) {
$inliteral = 0;
}
$man =~ s/\%/\\&\%/gs;
$man =~ s/(\n\.[A-Z][a-z] [\w ]+)\n([\.,:;-]\S*)\s*/$1 $2\n/gs;
$man =~ s/(\n\.[A-Z][a-z] [\w ]+)\n([.,:;-])\s+/$1 $2\n/gs;
$man =~ s/\s*$/\n/gm;
$man =~ s/\n+/\n/gs;
$man =~ s/\0//gs;