zakarya/puzzles
1
0
Fork 0
mirror of git://git.tartarus.org/simon/puzzles.git synced 2025-04-21 08:01:30 -07:00
Code Issues Packages Projects Releases Wiki Activity

Patch from Ben Hutchings to prevent an ugly special case in

Browse Source 
&splitline in which a line is `split' into a line ending in a
backslash followed by a completely blank line.

[originally from svn r6710]
This commit is contained in:
Simon Tatham
2006-05-20 11:58:24 +00:00
parent 197e262ba6
commit fd90d1a7c8
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
mkfiles.pl
View File

@ -325,7 +325,8 @@ sub splitline {
$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;
}