[EMAIL PROTECTED] writes:

> [...]
>  sub service_unavailable_error {
>    my ($err) = @_;
>    my $resp = "EX_UNAVAILABLE";
> -  print $client "SPAMD/1.0 $resphash{$resp} Service Unavailable: $err\r\n";
> +  syswrite( $client, "SPAMD/1.0 $resphash{$resp} Service Unavailable: 
> $err\r\n" );
>    logmsg("service unavailable: $err");
>  }

Please try to use the more standard perl formatting:

  http://wiki.apache.org/spamassassin/CodingStyle

Thanks!

Daniel

-- 
Daniel Quinlan
http://www.pathname.com/~quinlan/

Reply via email to