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