Parent Directory
| 
Revision Log
++ whatpm/t/ChangeLog 6 Sep 2009 01:19:59 -0000 2009-09-06 Wakaba <wakaba@suika.fam.cx> * tree-test-1.dat, tree-test-form.dat, tree-test-void.dat: Added and revised test results related to <keygen> parsing (HTML5 revision 2960). ++ whatpm/Whatpm/ChangeLog 6 Sep 2009 01:16:22 -0000 2009-09-06 Wakaba <wakaba@suika.fam.cx> * HTML.pm.src (_tree_construction_main): Treate |keygen| as a void element (HTML5 revision 2960). ++ whatpm/Whatpm/HTML/ChangeLog 6 Sep 2009 01:16:06 -0000 2009-09-06 Wakaba <wakaba@suika.fam.cx> * Serializer.pm (get_inner_html): Added |keygen| to the list of void elements (HTML5 revision 2960).
| 1 | wakaba | 1.1 | package Whatpm::HTML::Serializer; |
| 2 | use strict; | ||
| 3 | wakaba | 1.6 | our $VERSION=do{my @r=(q$Revision: 1.5 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r}; |
| 4 | wakaba | 1.1 | |
| 5 | sub get_inner_html ($$$) { | ||
| 6 | my (undef, $node, $on_error) = @_; | ||
| 7 | |||
| 8 | ## Step 1 | ||
| 9 | my $s = ''; | ||
| 10 | |||
| 11 | my $in_cdata; | ||
| 12 | my $parent = $node; | ||
| 13 | while (defined $parent) { | ||
| 14 | if ($parent->node_type == 1 and | ||
| 15 | $parent->namespace_uri eq 'http://www.w3.org/1999/xhtml' and | ||
| 16 | { | ||
| 17 | style => 1, script => 1, xmp => 1, iframe => 1, | ||
| 18 |