diff options
| author | Simon Tatham <anakin@pobox.com> | 2006-05-20 11:58:24 +0000 |
|---|---|---|
| committer | Simon Tatham <anakin@pobox.com> | 2006-05-20 11:58:24 +0000 |
| commit | fd90d1a7c8224e673361d8b23aadfa01829de77c (patch) | |
| tree | 2ad9177f802a6a63d68781e617468e707b17795e /mkfiles.pl | |
| parent | 197e262ba643a7c0af7f157ae175445109b7d132 (diff) | |
| download | puzzles-fd90d1a7c8224e673361d8b23aadfa01829de77c.zip puzzles-fd90d1a7c8224e673361d8b23aadfa01829de77c.tar.gz puzzles-fd90d1a7c8224e673361d8b23aadfa01829de77c.tar.bz2 puzzles-fd90d1a7c8224e673361d8b23aadfa01829de77c.tar.xz | |
Patch from Ben Hutchings to prevent an ugly special case in
&splitline in which a line is `split' into a line ending in a
backslash followed by a completely blank line.
[originally from svn r6710]
Diffstat (limited to 'mkfiles.pl')
| -rwxr-xr-x | mkfiles.pl | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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; } |