| # | Line 62 | Line 62 | sub doctype { | |
|---|---|---|
| 62 | undef $self->{docversion}; | |
| 63 | undef $self->{doctype}; | |
| 64 | $self->parse("doc"); | |
| 65 | – | if ( ! defined $self->{doctype} ) { |
| 66 | – | $self->parseerror("Unable to find <".$self->{doctag}.">"); |
| 67 | – | } |
| 65 | return ($self->{doctype},$self->{docversion}); | |
| 66 | } | |
| 67 | ||
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |