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);
open (FH, "<$tempfilename") || die "can't open $tempfilename: $!";
while (<FH>) {
print FC "\n";
print FC $_;
print FC "\\\\\n";
print FC "\\\\";
print FC "\n";
$line++;
}
close (FH);
print FC "\n";
while ($line < 15) {
print FC "\\\\\n";
$line++;