| # | Line 105 | Line 105 | sub parse { | |
|---|---|---|
| 105 | ||
| 106 | # Start file processing | |
| 107 | while ( ($_=<$filehandle>) ) { | |
| 108 | < | # Skip lines that start with a hash. A better way |
| 108 | > | $self->{linecount}++; |
| 109 | > | # Skip lines that start with a hash. A better way |
| 110 | # of adding comments than ignore tags: | |
| 111 | next if (/^#/); | |
| 111 | – | $self->{linecount}++; |
| 112 | $self->{currentline}=$_; | |
| 113 | $self->{stringpos}=0; | |
| 114 | while ( ($char=$self->_nextchar()) ne "" ) { | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |