Don't produce lines filled with only spaces (produce an empty one instead)

git-svn-id: svn+ssh://svn.gna.org/svn/warzone/trunk@6336 4a71c877-e1ca-e34f-864e-861f7616d084
master
Giel van Schijndel 2008-11-16 16:28:20 +00:00
parent 167510f3e7
commit 83b2440a3d
2 changed files with 6 additions and 5 deletions

View File

@ -713,7 +713,8 @@ sub printLoadFunc
s/\bABORT\b/goto in_statement_err/g; s/\bABORT\b/goto in_statement_err/g;
$$output .= "\t\t\t$_\n"; $$output .= "\t\t\t$_" if /\S/;
$$output .= "\n";
} }
$line = $$output =~ s/\n/\n/sg; $line = $$output =~ s/\n/\n/sg;