Bug #52754 for Mail-Box: Cannot decode string with wide characters at Mail::Message::Body::Encode

Show quoted text
Agree with you, this is a real horror! For me this is the most difficult part for understanding in your project and I think it should be better described in documentation. But now I have another magic problem. I attach the example script to describe the problem. I understand your solutions and they work fine, but in my project code I use Config::General module to get parameter charset and open config file with -UTF8 flag on. This is emulated with $charset = decode_utf8($charset); code in the example script. In this situation something goes wrong and I get bad text in arrived message. If I comment $charset = decode_utf8($charset); string everything is repaired. I can't explain what is happening... To run example script change from, to addresses and smtp server parameters. -- Dima: Nosce te ipsum e-mail: icestar@inbox.ru

#!/usr/bin/perl use strict; use warnings; use Mail::Message; use Mail::Message::Field::Full; use Mail::Transport::SMTP; use Data::Dumper; use Encode; my $subject = 'Это длинный заголовок тестового письма!'; my $charset = 'utf-8'; $charset = decode_utf8($charset); $subject = decode_utf8($subject); my $from_name = 'Дима'; $from_name = Encode::decode_utf8($from_name); my $from_address = Mail::Message::Field::Address->new( address => 'dima@mailbox.ru', phrase => $from_name, charset => $charset, encoding => 'B', ); my $to_name = 'Your address'; $to_name = Encode::decode_utf8($to_name); my $to_address = Mail::Message::Field::Address->new( address => 'test@mailbox.ru', phrase => $to_name, charset => $charset, encoding => 'B', ); my $head = Mail::Message::Head->build( Mail::Message::Field::Full->new('from' => $from_address), Mail::Message::Field::Full->new('to' => $to_address), Mail::Message::Field::Full->new('subject' => $subject, charset => $charset, encoding => 'B'), ); my $text = "Тело письма на русском языке."; $text = decode_utf8($text); $text = encode_utf8($text); my $body = Mail::Message::Body->new( data => $text, mime_type => 'text/plain', charset => $charset, ); $body = $body->concatenate($body, "\n-- \n", 'signature'); my $data = "текст приложения\n"; $data = decode_utf8($data); $data = encode_utf8($data); my $attach = Mail::Message::Body->new( data => $data, disposition => 'inline', mime_type => 'text/plain', charset => $charset, ); $body = $body->attach($attach); my $message = Mail::Message->build($body, head => $head); my $sender = Mail::Transport::SMTP->new( hostname => 'smtp.server.ru', timeout => 30, ); $sender->send($message); exit 0;