Collapse multiple spaces between words.

There are a few entries with "by__Name" that affects sorting.
This commit is contained in:
uwe 2019-12-02 16:38:37 +00:00
parent 62999bb137
commit 35f6392257
1 changed files with 4 additions and 0 deletions

View File

@ -236,6 +236,10 @@ while(<>) {
$msg =~ s/^\"//o;
$msg =~ s/\"$//o;
# Collapse multiple spaces between words. There are a
# few entries with "by__Name" that affects sorting.
$msg =~ s/(\w) +(\w)/$1 $2/g;
# Split up into separate paragraphs
#
$msgs=$msg;