]> asedeno.scripts.mit.edu Git - PuTTY.git/commitdiff
Port r6710 from puzzles:
authorJacob Nevins <jacobn@chiark.greenend.org.uk>
Sun, 21 May 2006 12:20:42 +0000 (12:20 +0000)
committerJacob Nevins <jacobn@chiark.greenend.org.uk>
Sun, 21 May 2006 12:20:42 +0000 (12:20 +0000)
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 r6714]
[r6710 == fd90d1a7c8224e673361d8b23aadfa01829de77c in puzzles repository]

mkfiles.pl

index 76e8e8a1a124a86ce59dba190d4f194b01b40619..b13c4ebad0a2840d21fd4f42f9e6474f59cfa4a5 100755 (executable)
@@ -300,7 +300,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;
   }