update ouput

This commit is contained in:
Rodolphe Quiedeville 2002-05-31 13:15:22 +00:00
parent eea003fe19
commit c49b29591d

View File

@ -158,12 +158,14 @@ close (FH);
my ($line) = (0); my ($line) = (0);
open (FH, "<$tempfilename") || die "can't open $tempfilename: $!"; open (FH, "<$tempfilename") || die "can't open $tempfilename: $!";
while (<FH>) { while (<FH>) {
print FC "\n";
print FC $_; print FC $_;
print FC "\\\\\n"; print FC "\\\\";
print FC "\n";
$line++; $line++;
} }
close (FH); close (FH);
print FC "\n";
while ($line < 15) { while ($line < 15) {
print FC "\\\\\n"; print FC "\\\\\n";
$line++; $line++;