481 |
## "Change the encoding" algorithm: |
## "Change the encoding" algorithm: |
482 |
|
|
483 |
## Step 1 |
## Step 1 |
484 |
if ($charset->{iana_names}->{'utf-16'}) { ## ISSUE: UTF-16BE -> UTF-8? UTF-16LE -> UTF-8? |
if ($charset->{category} & |
485 |
|
Message::Charset::Info::CHARSET_CATEGORY_UTF16 ()) { |
486 |
$charset = Message::Charset::Info->get_by_iana_name ('utf-8'); |
$charset = Message::Charset::Info->get_by_iana_name ('utf-8'); |
487 |
($char_stream, $e_status) = $charset->get_decode_handle |
($char_stream, $e_status) = $charset->get_decode_handle |
488 |
($byte_stream, |
($byte_stream, |