Parent Directory
| 
Revision Log
| 
Patch
| revision 1.25 by wakaba, Sun Jun 24 05:12:11 2007 UTC | revision 1.29 by wakaba, Mon Jun 25 11:05:57 2007 UTC | |
|---|---|---|
| # | Line 247 sub _get_next_token ($) { | Line 247 sub _get_next_token ($) { |
| 247 | } elsif ($self->{state} eq 'entity data') { | } elsif ($self->{state} eq 'entity data') { |
| 248 | ## (cannot happen in CDATA state) | ## (cannot happen in CDATA state) |
| 249 | ||
| 250 | my $token = $self->_tokenize_attempt_to_consume_an_entity; | my $token = $self->_tokenize_attempt_to_consume_an_entity (0); |
| 251 | ||
| 252 | $self->{state} = 'data'; | $self->{state} = 'data'; |
| 253 | # next-input-character is already done | # next-input-character is already done |
| # | Line 418 sub _get_next_token ($) { | Line 418 sub _get_next_token ($) { |
| 418 | redo A; | redo A; |
| 419 | } elsif ($self->{next_input_character} == 0x003E) { # > | } elsif ($self->{next_input_character} == 0x003E) { # > |
| 420 | if ($self->{current_token}->{type} eq 'start tag') { | if ($self->{current_token}->{type} eq 'start tag') { |
| 421 | $self->{current_token}->{first_start_tag} | |
| 422 | = not defined $self->{last_emitted_start_tag_name}; | |
| 423 | $self->{last_emitted_start_tag_name} = $self->{current_token}->{tag_name}; | $self->{last_emitted_start_tag_name} = $self->{current_token}->{tag_name}; |