| # | Line 305 | Line 305 | sub parseerror { | |
|---|---|---|
| 305 | my $self=shift; | |
| 306 | my $string=shift; | |
| 307 | ||
| 308 | < | ($line, $file)=$self->line(); |
| 309 | < | print "Parse Error in ".$file->url().", line ". |
| 308 | > | if ( ! defined $self->{currentparse} ) { |
| 309 | > | $self->error($string); |
| 310 | > | } |
| 311 | > | else { |
| 312 | > | ($line, $file)=$self->line(); |
| 313 | > | print "Parse Error in ".$file->url().", line ". |
| 314 | $line."\n"; | |
| 315 | < | print $string."\n"; |
| 316 | < | die; |
| 315 | > | print $string."\n"; |
| 316 | > | die; |
| 317 | > | } |
| 318 | } | |
| 319 | ||
| 320 | sub checktag { | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |