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

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

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

revision 1.193 by wakaba, Sat Oct 4 08:58:02 2008 UTC revision 1.194 by wakaba, Sat Oct 4 09:17:54 2008 UTC
# Line 10350  sub _tree_construction_main ($) { Line 10350  sub _tree_construction_main ($) {
10350          ## Ignore the token.          ## Ignore the token.
10351          $token = $self->_get_next_token;          $token = $self->_get_next_token;
10352          next B;          next B;
       } elsif ({  
                 caption => 1, col => 1, colgroup => 1, frame => 1,  
                 frameset => 1, head => 1, option => 1, optgroup => 1,  
                 tbody => 1, td => 1, tfoot => 1, th => 1,  
                 thead => 1, tr => 1,  
                 area => 1, basefont => 1, bgsound => 1,  
                 embed => 1, hr => 1, iframe => 1, image => 1,  
                 img => 1, input => 1, isindex => 1, noembed => 1,  
                 noframes => 1, param => 1, select => 1, spacer => 1,  
                 table => 1, textarea => 1, wbr => 1,  
                 noscript => 0, ## TODO: if scripting is enabled  
                }->{$token->{tag_name}}) {  
           
         $self->{parse_error}->(level => $self->{level}->{must}, type => 'unmatched end tag',  
                         text => $token->{tag_name}, token => $token);  
         ## Ignore the token  
         $token = $self->_get_next_token;  
         next B;  
10353        } else {        } else {
10354          if ($token->{tag_name} eq 'sarcasm') {          if ($token->{tag_name} eq 'sarcasm') {
10355            sleep 0.001; # take a deep breath            sleep 0.001; # take a deep breath
Legend:
Removed from v.1.193  
changed lines
  Added in v.1.194
[email protected]
 ViewVC Help
Powered by ViewVC 1.1.24