Uninitialized value in controlchan

[Julien ÉLIE]

Hi,

Whenever a control article is successfully processed, I have :

Error log:
Use of uninitialized value in concatenation (.) or string at /usr/lib/news/bin/controlchan line 315.


     if ($logfile eq 'mail') {
         my $mail = sendmail($message);
         print $mail map { s/^~/~~/; "$_\n" } @$headers;
------> print $mail "$_\n" . join ('', map { s/^~/~~/; "$_\n" } @$body)
             if $body;
         close $mail or logdie("Cannot send mail: $!");
         return;
     }


Shouldn't it be directly :

print join ('', map { s/^~/~~/; "$_\n" } @$body)


Regards,

-- 
Julien

« L'ordinateur obéit à vos ordres, pas à vos intentions. »