&splitline in which a line is `split' into a line ending in a
backslash followed by a completely blank line.
[originally from svn r6710]
$splitchar = (defined $splitchar ? $splitchar : '\\');
while (length $line > $len) {
$line =~ /^(.{0,$len})\s(.*)$/ or $line =~ /^(.{$len,}?\s(.*)$/;
- $result .= $1 . " ${splitchar}\n\t\t";
+ $result .= $1;
+ $result .= " ${splitchar}\n\t\t" if $2 ne '';
$line = $2;
$len = 60;
}