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;
$$output .= "\t\t\t$_\n";
$$output .= "\t\t\t$_" if /\S/;
$$output .= "\n";
}
$line = $$output =~ s/\n/\n/sg;

View File

@ -296,10 +296,10 @@ loadSensorStatsFromDB
#line 232 "stats-db2.tpl"
stats->ref = REF_SENSOR_START + CUR_ROW_NUM;
// save the stats
statsSetSensor(stats, CUR_ROW_NUM);
// set the max stat values for the design screen
if (stats->designable)
{
@ -542,10 +542,10 @@ loadConstructStatsFromDB
#line 449 "stats-db2.tpl"
stats->ref = REF_CONSTRUCT_START + CUR_ROW_NUM;
// save the stats
statsSetConstruct(stats, CUR_ROW_NUM);
// set the max stat values for the design screen
if (stats->designable)
{