diff options
| author | Matthew Somerville <matthew@mysociety.org> | 2011-08-09 16:43:18 +0100 |
|---|---|---|
| committer | Matthew Somerville <matthew@mysociety.org> | 2011-08-09 16:43:18 +0100 |
| commit | 9cecc15f451e7fd7e5cdab66fa747f86f8b6bee1 (patch) | |
| tree | a3fcbdd85538eb91d75a543df93be8fa1cb747d3 /perllib/Utils.pm | |
| parent | 4cdf8b0c15052fd06d811137dda52e3bac65028e (diff) | |
Fix broken lack of paragraphing, fixes #140.
Diffstat (limited to 'perllib/Utils.pm')
| -rw-r--r-- | perllib/Utils.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perllib/Utils.pm b/perllib/Utils.pm index 39c251876..c9afff186 100644 --- a/perllib/Utils.pm +++ b/perllib/Utils.pm @@ -197,7 +197,7 @@ sub cleanup_text { } # Remove unneeded whitespace - my @lines = grep { m/\S/ } split m/\n\n/, $input; + my @lines = grep { m/\S/ } split m/(?:\r?\n){2,}/, $input; for (@lines) { $_ = trim_text($_); $_ = ucfirst $_; # start with capital |