| 129 |
|
my $fileobj; |
| 130 |
|
my $sn; |
| 131 |
|
@{$self->{updatedfiles}}=(); |
| 132 |
< |
|
| 132 |
> |
|
| 133 |
|
# -- check the input file snd output sequence numbers are in sync |
| 134 |
|
my $basefilenumber=$self->{cache}->updatenumber($self->url()); |
| 135 |
|
if ( $basefilenumber != $self->{lastsequence} ) { |
| 283 |
|
print {$self->{fileout}} "\n";# always start an include on a new line |
| 284 |
|
my $linecount=0; |
| 285 |
|
while ( <$fh> ) { |
| 286 |
< |
$linecount++; |
| 286 |
> |
# Enable comments in files. Skip line if it |
| 287 |
> |
# starts with a hash: |
| 288 |
> |
next if /^#/; |
| 289 |
> |
$linecount++; |
| 290 |
|
print {$self->{fileout}} $_; |
| 291 |
|
} |
| 292 |
|
print {$self->{fileout}} "\n";# always end include with new line |
