Operate in utf8 for STDOUT.
This commit is contained in:
parent
102b1f8468
commit
8985765760
1 changed files with 2 additions and 0 deletions
|
@ -15,6 +15,8 @@ use Encode qw(encode decode);
|
|||
use Email::MIME::RFC2047::Encoder;
|
||||
use utf8;
|
||||
|
||||
binmode STDOUT, ":utf8";
|
||||
|
||||
my $encoder = Email::MIME::RFC2047::Encoder->new();
|
||||
|
||||
my $TODAY = UnixDate(ParseDate("today"), '%Y-%m-%d');
|
||||
|
|
Loading…
Reference in a new issue