| # | Line 283 | Line 283 | sub Include_Start { | |
|---|---|---|
| 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 | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |