shithub: puzzles

Info  •  Files  •  Log  •  Branches

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]

--- a/mkfiles.pl

+++ b/mkfiles.pl

@@ -325,7 +325,8 @@

   $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;

   }