| # | Line 23 | Line 23 | use Utilities::Verbose; | |
|---|---|---|
| 23 | require 5.001; | |
| 24 | use Carp; | |
| 25 | ||
| 26 | + | BEGIN { print __PACKAGE__." still used.\n"; exit(1) } |
| 27 | + | |
| 28 | @ISA=qw(Utilities::Verbose); | |
| 29 | ||
| 30 | sub new { | |
| # | Line 446 | Line 448 | sub _closelabel { | |
| 448 | ($self->{tagname}=$self->_getstore())=~tr/A-Z/a-z/; | |
| 449 | } | |
| 450 | else { | |
| 449 | – | # do not die anymore - breaks non tag documents |
| 450 | – | #die ">Tag syntax error in $self->{tagname} on line ". |
| 451 | – | # $self->line()." of file \n$self->{filename}"; |
| 451 | # -- assume that this is plain text | |
| 452 | $self->{tagcontext}="text"; | |
| 453 | $self->_resetstore(); | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |