/[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.96 by wakaba, Sat Mar 8 13:26:45 2008 UTC revision 1.97 by wakaba, Sat Mar 8 13:45:44 2008 UTC
# Line 5379  sub _tree_construction_main ($) { Line 5379  sub _tree_construction_main ($) {
5379                  address => 1, blockquote => 1, center => 1, dir => 1,                  address => 1, blockquote => 1, center => 1, dir => 1,
5380                  div => 1, dl => 1, fieldset => 1,                  div => 1, dl => 1, fieldset => 1,
5381                  h1 => 1, h2 => 1, h3 => 1, h4 => 1, h5 => 1, h6 => 1,                  h1 => 1, h2 => 1, h3 => 1, h4 => 1, h5 => 1, h6 => 1,
5382                  listing => 1, menu => 1, ol => 1, p => 1, ul => 1,                  menu => 1, ol => 1, p => 1, ul => 1,
5383                  pre => 1,                  pre => 1, listing => 1,
5384                 }->{$token->{tag_name}}) {                 }->{$token->{tag_name}}) {
5385          ## has a p element in scope          ## has a p element in scope
5386          INSCOPE: for (reverse @{$self->{open_elements}}) {          INSCOPE: for (reverse @{$self->{open_elements}}) {
# Line 5399  sub _tree_construction_main ($) { Line 5399  sub _tree_construction_main ($) {
5399          } # INSCOPE          } # INSCOPE
5400                        
5401          !!!insert-element-t ($token->{tag_name}, $token->{attributes});          !!!insert-element-t ($token->{tag_name}, $token->{attributes});
5402          if ($token->{tag_name} eq 'pre') {          if ($token->{tag_name} eq 'pre' or $token->{tag_name} eq 'listing') {
5403            !!!next-token;            !!!next-token;
5404            if ($token->{type} == CHARACTER_TOKEN) {            if ($token->{type} == CHARACTER_TOKEN) {
5405              $token->{data} =~ s/^\x0A//;              $token->{data} =~ s/^\x0A//;
Legend:
Removed from v.1.96  
changed lines
  Added in v.1.97
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24