/[suikacvs]/test/html-webhacc/WebHACC/Language/HTML.pm
Suika

Diff of /test/html-webhacc/WebHACC/Language/HTML.pm

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

revision 1.5 by wakaba, Thu Aug 14 15:50:42 2008 UTC revision 1.6 by wakaba, Fri Aug 15 05:53:23 2008 UTC
# Line 14  sub generate_syntax_error_section ($) { Line 14  sub generate_syntax_error_section ($) {
14    require Encode;    require Encode;
15    require Whatpm::HTML;    require Whatpm::HTML;
16        
   $self->result->layer_uncertain ('encode');  
17    $self->result->layer_uncertain ('charset');    $self->result->layer_uncertain ('charset');
18    
19    my $out = $self->output;    my $out = $self->output;
# Line 38  sub generate_syntax_error_section ($) { Line 37  sub generate_syntax_error_section ($) {
37      my $t = \($input->{s});      my $t = \($input->{s});
38      unless ($input->{is_char_string}) {      unless ($input->{is_char_string}) {
39        $t = \(Encode::decode ($input->{charset}, $$t));        $t = \(Encode::decode ($input->{charset}, $$t));
40          $self->result->layer_uncertain ('encode');
41      }      }
42            
43      $el = $doc->create_element_ns      $el = $doc->create_element_ns
# Line 51  sub generate_syntax_error_section ($) { Line 51  sub generate_syntax_error_section ($) {
51      } else {      } else {
52        Whatpm::HTML->parse_byte_string        Whatpm::HTML->parse_byte_string
53            ($input->{charset}, $input->{s} => $doc, $onerror);            ($input->{charset}, $input->{s} => $doc, $onerror);
54          $self->result->layer_uncertain ('encode');
55      }      }
56    
57      $self->{structure} = $doc;      $self->{structure} = $doc;
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24