/[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.4 by wakaba, Mon Jul 21 09:15:55 2008 UTC revision 1.6 by wakaba, Fri Aug 15 05:53:23 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    
16      $self->result->layer_uncertain ('charset');
17    
18    my $out = $self->output;    my $out = $self->output;
19    $out->start_section (role => 'parse-errors');    $out->start_section (role => 'parse-errors');
20    $out->start_error_list (role => 'parse-errors');    $out->start_error_list (role => 'parse-errors');
21    
22    my $input = $self->input;    my $input = $self->input;
23    my $result = $self->result;    my $result = $self->result;
24      $self->result->layer_applicable ('syntax');
25    
26    my $onerror = sub {    my $onerror = sub {
27      my $err = shift;      my $err = shift;
# Line 40  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;
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.6
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24