| 354 |
|
sub _resetlabels { |
| 355 |
|
my $self=shift; |
| 356 |
|
undef $self->{tagvar}; |
| 357 |
+ |
undef $self->{tagname}; |
| 358 |
|
} |
| 359 |
|
|
| 360 |
|
sub _closelabel { |
| 366 |
|
$self->{lastlabel}=""; |
| 367 |
|
} |
| 368 |
|
elsif ( $self->_getstore() ne "") { |
| 369 |
< |
#Then it must be the tag name |
| 370 |
< |
($self->{tagname}=$self->_getstore())=~tr/A-Z/a-z/; |
| 369 |
> |
# Then it must be the tag name |
| 370 |
> |
if ( ! defined $self->{tagname} ) { |
| 371 |
> |
($self->{tagname}=$self->_getstore())=~tr/A-Z/a-z/; |
| 372 |
> |
} |
| 373 |
> |
else { |
| 374 |
> |
die "Tag syntax error in $self->{tagname} on ".$self->line()."\n". |
| 375 |
> |
"of file $self->{filename}"; |
| 376 |
> |
} |
| 377 |
|
} |
| 378 |
|
$self->_resetstore(); |
| 379 |
|
} |
