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;
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),
delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};
}
-# STDOUT should be in utf8 mode
-binmode(STDOUT,':utf8');
-
+binmode(STDOUT,':encoding(UTF-8)');
use POSIX qw(strftime nice);
use Debbugs::Config qw(:globals :text :config);