Fix the output of the -g mail debug option: now output the mail in the correct

charset (i.e., the charset specified in the mail header, rather than the
charset Perl thinks you like).

CVS version numbers

check_trans.pl: 1.87 -> 1.88

1 files changed, 2 insertions, 0 deletions

diff --git a/check_trans.pl b/check_trans.pl
index d468cabbf35..f9979dff782 100755
--- a/check_trans.pl
+++ b/check_trans.pl
@@ -686,6 +686,8 @@ sub send_email
 			print '-'x72, "\n";
 			print color('reset');
 
+			# make sure perl doesn't do any annoying charset conversions
+			binmode( \*STDOUT, ':bytes' );
 			print $msg->as_string;
 
 			print color('bold yellow');