Fixed: Perl 5.18.1 problems with MIME::Entity (bug#9832).

See:
http://search.cpan.org/~rjbs/perl-5.18.0/pod/perldiag.pod#Strings_with_code_points_over_0xFF_may_not_be_mapped_into_in-memory_file_handles
http://blogs.perl.org/users/tony_cook/2013/02/perl-io-on-scalars.html

Thanks to Niko Tyni at the Debian team for investigating!

CHANGES.md

@@ -1,4 +1,5 @@
 #3.2.12 2013-11-05
+ - 2013-11-04 Fixed bug#[9832](http://bugs.otrs.org/show_bug.cgi?id=9832) - Perl 5.18.1 problems with MIME::Entity.
  - 2013-10-31 Updated French translation, thanks to Olivier Sallou!
  - 2013-10-31 Fixed bug#[9910](http://bugs.otrs.org/show_bug.cgi?id=9910) - Startup warnings/errors with Perl 5.18.1.
  - 2013-10-29 Fixed bug#[9753](http://bugs.otrs.org/show_bug.cgi?id=9753) - META HTTP-EQUIV="Refresh" tag not stripped from HTML email.

Kernel/System/Email.pm

@@ -313,11 +313,6 @@ sub Send {
         $Header{Encoding} = $Self->{ConfigObject}->Get('SendmailEncodingForce');
     }
 
-    # body encode if utf8 and base64 is used
-    if ( $Header{Encoding} =~ /utf(8|-8)/i && $Header{Encoding} =~ /base64/i ) {
-        $Self->{EncodeObject}->EncodeOutput( \$Param{Body} );
-    }
-
     # check and create message id
     if ( $Param{'Message-ID'} ) {
         $Header{'Message-ID'} = $Param{'Message-ID'};
@@ -339,7 +334,9 @@ sub Send {
         );
     }
 
-    # build MIME::Entity
+    # build MIME::Entity, Data should be bytes, not utf-8
+    # see http://bugs.otrs.org/show_bug.cgi?id=9832
+    $Self->{EncodeObject}->EncodeOutput( \$Param{Body} );
     my $Entity = MIME::Entity->build( %Header, Data => $Param{Body} );
 
     # set In-Reply-To and References header

scripts/test/Email.t

@@ -62,6 +62,17 @@ my @Tests = (
             Charset => 'utf8',
         },
     },
+    {
+        Name => 'utf8 - high unicode characters',
+        Data => {
+            From    => '"Служба поддержки (support)" <me@example.com>',
+            To      => 'friend@example.com',
+            Subject => 'Test related to bug#9832',
+            Body    => "\x{2660}",
+            Type    => 'text/plain',
+            Charset => 'utf8',
+        },
+    },
 );
 
 my $Count = 0;