/[suikacvs]/markup/html/whatpm/Whatpm/HTML.pm.src
Suika

Diff of /markup/html/whatpm/Whatpm/HTML.pm.src

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.89 by wakaba, Sat Mar 8 02:48:20 2008 UTC revision 1.90 by wakaba, Sat Mar 8 02:54:45 2008 UTC
# Line 6124  sub _tree_construction_main ($) { Line 6124  sub _tree_construction_main ($) {
6124          INSCOPE: for (reverse 0..$#{$self->{open_elements}}) {          INSCOPE: for (reverse 0..$#{$self->{open_elements}}) {
6125            my $node = $self->{open_elements}->[$_];            my $node = $self->{open_elements}->[$_];
6126            if ($node->[1] eq $token->{tag_name}) {            if ($node->[1] eq $token->{tag_name}) {
             ## generate implied end tags  
             while ({  
                     dd => 1, dt => 1, li => 1, p => 0,  
                    }->{$self->{open_elements}->[-1]->[1]}) {  
               !!!cp ('t409.1');  
               pop @{$self->{open_elements}};  
             }  
               
6127              !!!cp ('t410.1');              !!!cp ('t410.1');
6128              $i = $_;              $i = $_;
6129              last INSCOPE;              last INSCOPE;
Legend:
Removed from v.1.89  
changed lines
  Added in v.1.90
[email protected]
 ViewVC Help
Powered by ViewVC 1.1.24