401 |
## TODO: Is this ok? Transfer protocol's parameter should be |
## TODO: Is this ok? Transfer protocol's parameter should be |
402 |
## interpreted in its semantics? |
## interpreted in its semantics? |
403 |
|
|
|
## ISSUE: Unsupported encoding is not ignored according to the spec. |
|
404 |
($char_stream, $e_status) = $charset->get_decode_handle |
($char_stream, $e_status) = $charset->get_decode_handle |
405 |
($byte_stream, allow_error_reporting => 1, |
($byte_stream, allow_error_reporting => 1, |
406 |
allow_fallback => 1); |
allow_fallback => 1); |
408 |
$self->{confident} = 1; |
$self->{confident} = 1; |
409 |
last SNIFFING; |
last SNIFFING; |
410 |
} else { |
} else { |
411 |
## TODO: unsupported error |
!!!parse-error (type => 'charset:not supported', |
412 |
|
layer => 'encode', |
413 |
|
line => 1, column => 1, |
414 |
|
value => $charset_name, |
415 |
|
level => $self->{level}->{uncertain}); |
416 |
} |
} |
417 |
} |
} |
418 |
|
|