INN commit: trunk/control (controlchan.in)

[INN Commit]

    Date: Tuesday, November 21, 2006 @ 22:49:21
  Author: eagle
Revision: 7588

When printing the blank line between headers, don't also try to print $_;
it's undefined at that point.

Modified:
  trunk/control/controlchan.in

----------------+
 controlchan.in |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

Modified: controlchan.in
===================================================================
--- controlchan.in	2006-11-22 06:26:40 UTC (rev 7587)
+++ controlchan.in	2006-11-22 06:49:21 UTC (rev 7588)
@@ -311,7 +311,7 @@
     if ($logfile eq 'mail') {
         my $mail = sendmail($message);
         print $mail map { s/^~/~~/; "$_\n" } @$headers;
-        print $mail "$_\n" . join ('', map { s/^~/~~/; "$_\n" } @$body)
+        print $mail "$_" . join ('', map { s/^~/~~/; "$_\n" } @$body)
             if $body;
         close $mail or logdie("Cannot send mail: $!");
         return;