diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2017-10-17 14:44:08 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2017-10-17 14:44:08 -0700 |
| commit | 57d4a5ffe7b86d032339d6eefe1a22277f3ca113 (patch) | |
| tree | 43c9ec6e2e194b5b8c7c5ea615ddf008f546d7d6 /FS/FS/Template_Mixin.pm | |
| parent | e49ae07876b2f0254875581e525f8aee208ca1d1 (diff) | |
fix MIME::Entity usage for perl 5.18+, RT#77890
Diffstat (limited to 'FS/FS/Template_Mixin.pm')
| -rw-r--r-- | FS/FS/Template_Mixin.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/FS/FS/Template_Mixin.pm b/FS/FS/Template_Mixin.pm index 70bc4fb5b..c97e84e83 100644 --- a/FS/FS/Template_Mixin.pm +++ b/FS/FS/Template_Mixin.pm @@ -2107,6 +2107,7 @@ Returns an argument list to be passed to L<FS::Misc::send_email>. =cut use MIME::Entity; +use Encode; sub generate_email { @@ -2174,7 +2175,7 @@ sub generate_email { if $DEBUG; # 'print_text' argument is no longer used - @text = $self->print_text(\%args); + @text = map Encode::encode_utf8($_), $self->print_text(\%args); } else { @@ -2269,7 +2270,7 @@ sub generate_email { ' </title>', ' </head>', ' <body bgcolor="#e8e8e8">', - $html, + Encode::encode_utf8($html), ' </body>', '</html>', ], |