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

Diff of /test/html-webhacc/WebHACC/Language/XML.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.7 by wakaba, Sat Aug 16 07:42:20 2008 UTC
# Line 13  sub generate_syntax_error_section ($) { Line 13  sub generate_syntax_error_section ($) {
13    require Message::DOM::DOMImplementation;    require Message::DOM::DOMImplementation;
14    require Message::DOM::XMLParserTemp;    require Message::DOM::XMLParserTemp;
15    
   $self->result->layer_uncertain ('encode');  
16    $self->result->layer_uncertain ('charset');    $self->result->layer_uncertain ('charset');
17    
18    my $out = $self->output;    my $out = $self->output;
# Line 44  sub generate_syntax_error_section ($) { Line 43  sub generate_syntax_error_section ($) {
43      require Encode;      require Encode;
44      $t = \(Encode::encode ('utf8', $$t));      $t = \(Encode::encode ('utf8', $$t));
45      $input->{charset} = 'utf-8';      $input->{charset} = 'utf-8';
46      } else {
47        $self->result->layer_uncertain ('encode');
48    }    }
49    
50    open my $fh, '<', $t;    open my $fh, '<', $t;
# Line 53  sub generate_syntax_error_section ($) { Line 54  sub generate_syntax_error_section ($) {
54    $self->{structure}->manakai_charset ($input->{official_charset})    $self->{structure}->manakai_charset ($input->{official_charset})
55        if defined $input->{official_charset};        if defined $input->{official_charset};
56    
57    $self->{structure}->document_uri ($input->{uri});    $self->{structure}->document_uri ($input->url);
58    $self->{structure}->manakai_entity_base_uri ($input->{base_uri});    $self->{structure}->manakai_entity_base_uri ($input->{base_uri});
59    
60    $out->end_error_list;    $out->end_error_list;
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.7
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24