From 39734e22f01a6f1e9c075fdfbf332c1f9d4a7f8a Mon Sep 17 00:00:00 2001
From: Bas Zoetekouw <bas>
Date: Mon, 15 Dec 2008 19:02:22 +0000
Subject: 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
---
 check_trans.pl | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'check_trans.pl')

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');
-- 
cgit v1.2.3