aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSimon Tatham <anakin@pobox.com>2006-05-20 11:58:24 +0000
committerSimon Tatham <anakin@pobox.com>2006-05-20 11:58:24 +0000
commitfd90d1a7c8224e673361d8b23aadfa01829de77c (patch)
tree2ad9177f802a6a63d68781e617468e707b17795e
parent197e262ba643a7c0af7f157ae175445109b7d132 (diff)
downloadpuzzles-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]
-rwxr-xr-xmkfiles.pl3
1 files changed, 2 insertions, 1 deletions
diff --git a/mkfiles.pl b/mkfiles.pl
index b93e4fa..9ab5223 100755
--- a/mkfiles.pl
+++ b/mkfiles.pl
@@ -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;
}