X-Git-Url: https://git.donarmstrong.com/?p=debbugs.git;a=blobdiff_plain;f=cgi%2Fbugreport.cgi;fp=cgi%2Fbugreport.cgi;h=70f42292644f437e1284a6ba0aee2eeb5aabb635;hp=55617ae1f2a9abcd186bbf5007576a2e4572670e;hb=37fa4f5e9b7218b8a909f2c0502a12c6b7f5303e;hpb=f1fc9ededf793c53d996bf672294b29abcb84ec4

diff --git a/cgi/bugreport.cgi b/cgi/bugreport.cgi
index 55617ae..70f4229 100755
--- a/cgi/bugreport.cgi
+++ b/cgi/bugreport.cgi
@@ -8,8 +8,6 @@ BEGIN{
     delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
 }
 
-# STDOUT should be using the utf8 io layer
-binmode(STDOUT,':utf8');
 
 use POSIX qw(strftime);
 use MIME::Parser;
@@ -38,6 +36,8 @@ use List::Util qw(max);
 
 use CGI::Simple;
 my $q = new CGI::Simple;
+# STDOUT should be using the utf8 io layer
+binmode(STDOUT,':raw:encoding(UTF-8)');
 
 my %param = cgi_parameters(query => $q,
 			   single => [qw(bug msg att boring terse),