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

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

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

revision 1.2 by wakaba, Sat Mar 1 00:42:53 2008 UTC revision 1.4 by wakaba, Sat May 24 10:58:19 2008 UTC
# Line 64  sub get_inner_html ($$$) { Line 64  sub get_inner_html ($$$) {
64          spacer => 1, wbr => 1,          spacer => 1, wbr => 1,
65        }->{$tag_name};        }->{$tag_name};
66    
67        $s .= "\x0A" if $tag_name eq 'pre' or $tag_name eq 'textarea';        $s .= "\x0A" if {pre => 1, textarea => 1, listing => 1}->{$tag_name};
68    
69        if (not $in_cdata and {        if (not $in_cdata and {
70          style => 1, script => 1, xmp => 1, iframe => 1,          style => 1, script => 1, xmp => 1, iframe => 1,
# Line 95  sub get_inner_html ($$$) { Line 95  sub get_inner_html ($$$) {
95      } elsif ($nt == 5) { # entrefs      } elsif ($nt == 5) { # entrefs
96        push @node, @{$child->child_nodes};        push @node, @{$child->child_nodes};
97      } elsif ($nt == 7) { # PIs      } elsif ($nt == 7) { # PIs
98        $s .= '<?' . $child->target . ' ' . $target->data . '>';        $s .= '<?' . $child->target . ' ' . $child->data . '>';
99      } else {      } else {
100        $on_error->($child) if defined $on_error;        $on_error->($child) if defined $on_error;
101      }      }
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24