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; |
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; |