| # | Line 123 | Line 123 | sub parse { | |
|---|---|---|
| 123 | } | |
| 124 | } | |
| 125 | else { | |
| 126 | < | print "Cannot parse - file not known\n"; |
| 126 | > | $self->error("Cannot parse $parselabel - file not known"); |
| 127 | } | |
| 128 | } | |
| 129 | ||
| 130 | sub currentparsename { | |
| 131 | my $self=shift; | |
| 132 | @_?$self->{currentparsename}=shift | |
| 133 | < | :$self->{currentparsename}; |
| 133 | > | :(defined $self->{currentparsename}?$self->{currentparsename}:""); |
| 134 | } | |
| 135 | ||
| 136 | sub currentparser { | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |