summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorH. Peter Anvin <hpa@zytor.com>2011-12-16 06:46:08 (GMT)
committerH. Peter Anvin <hpa@zytor.com>2011-12-16 06:46:08 (GMT)
commit89b4939286f236cc93a4777859ee30ee75472c14 (patch)
tree310c67dc29a2e64d36ef77f74b17ada1b435a4f6
parent27a9b7782ea8afa5c61eaa93200ebb73b892c558 (diff)
downloadtip-bot-89b4939286f236cc93a4777859ee30ee75472c14.zip
tip-bot-89b4939286f236cc93a4777859ee30ee75472c14.tar.gz
tip-bot-89b4939286f236cc93a4777859ee30ee75472c14.tar.bz2
tip-bot-89b4939286f236cc93a4777859ee30ee75472c14.tar.xz
robotfmt.pl: make sure Perl knows to send UTF-8 to sendmail
... otherwise we get Latin-1 in email tagged as UTF-8 ... Signed-off-by: H. Peter Anvin <hpa@zytor.com>
-rwxr-xr-xrobotfmt.pl1
1 files changed, 1 insertions, 0 deletions
diff --git a/robotfmt.pl b/robotfmt.pl
index f926b8f..4c6fba3 100755
--- a/robotfmt.pl
+++ b/robotfmt.pl
@@ -170,5 +170,6 @@ if (scalar(@references)) {
splice(@message, 2, 0, @moreheaders);
$target = $test_only ? "\Q$test_only" : '-t';
open(SENDMAIL, "|-", "sendmail -f \Q$sender\E -i -O DeliveryMode=b $target") or die;
+binmode(SENDMAIL, ':utf8');
print SENDMAIL @message;
close(SENDMAIL);