robbat2

Index: commitlog-portage.pl===================================================================RCS file: /var/cvsroot/CVSROOT/commitlog-portage.pl,vretrieving revision 1.22diff -u -3 -p -w -b -B -r1.22 commitlog-portage.pl--- commitlog-portage.pl	6 Sep 2007 19:48:49 -0000	1.22+++ commitlog-portage.pl	6 Sep 2007 20:15:01 -0000@@ -304,7 +304,19 @@ sub mail_notification 	$repository = substr($path,0,$repository_stop); 	$path = substr($path,$repository_stop+1); -        open(MAIL, "| mail -a \"Content-Type: text/plain; charset=utf8\" -a \"Content-Transfer-Encoding: 8bit\" -a \"Reply-To: $login\@gentoo.org\" -a \"X-VCS-Repository: $repository\" -a \"X-VCS-Files: @files\" -a \"X-VCS-Directories: $path\" -s \"cvs commit in $path: @files\" $MAIL_TO");+	# Build an exact array of headers we are adding to the email+	my @headers = (+		"Content-Type: text/plain; charset=utf8",+		"Content-Transfer-Encoding: 8bit",+		"Reply-To: $login\@gentoo.org",+		"X-VCS-Repository: $repository",+		"X-VCS-Files: @files",+		"X-VCS-Directories: $path",+		"Subject: cvs commit in $path: @files",+		);+	my $cmd = "mail".join(" ",map { " -a \"$_\" " } @headers);++	open(MAIL, "| $cmd $MAIL_TO");         print(MAIL join("\n", @text));         close(MAIL);     }