diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2017-10-17 14:44:00 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2017-10-17 14:44:00 -0700 |
| commit | 3d4cedda1dabe29c2c24888a30e62472cfea8b35 (patch) | |
| tree | fd66347482cee9caa4bfed36b0c90746cd49390c /FS/FS/TicketSystem | |
| parent | c07b79440c6f6763c7c76c8d107c7f32d80e302e (diff) | |
fix MIME::Entity usage for perl 5.18+, RT#77890
Diffstat (limited to 'FS/FS/TicketSystem')
| -rw-r--r-- | FS/FS/TicketSystem/RT_Internal.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/FS/FS/TicketSystem/RT_Internal.pm b/FS/FS/TicketSystem/RT_Internal.pm index 99e7044..3da68d9 100644 --- a/FS/FS/TicketSystem/RT_Internal.pm +++ b/FS/FS/TicketSystem/RT_Internal.pm @@ -5,6 +5,7 @@ use vars qw( @ISA $DEBUG $me ); use Data::Dumper; use Date::Format qw( time2str ); use MIME::Entity; +use Encode; use FS::UID qw(dbh); use FS::CGI qw(popurl); use FS::TicketSystem::RT_Libs; @@ -374,7 +375,7 @@ sub create_ticket { : ( $param{'cc'} ? [ $param{'cc'} ] : [] ); my $mimeobj = MIME::Entity->build( - 'Data' => $param{'message'}, + 'Data' => Encode::encode_utf8( $param{'message'} ), 'Type' => ( $param{'mime_type'} || 'text/plain' ), ); |