Commit 94809fb6 authored by Arne Köhn's avatar Arne Köhn

Add an additional newline after each sentence. tnt needs this.

parent 68a391a3
...@@ -77,6 +77,7 @@ sub process { ...@@ -77,6 +77,7 @@ sub process {
$line = join(' ', (split(/\s+/, $line))[0,1])."\n"; $line = join(' ', (split(/\s+/, $line))[0,1])."\n";
$sentences[$n] .= $line; $sentences[$n] .= $line;
if ($line =~ /\.$/) { if ($line =~ /\.$/) {
$sentences[$n] .= "\n";
$n++; $n++;
$sentences[$n] = ''; $sentences[$n] = '';
} }
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment