remove warning when not using spamd_socket
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@276 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
parent
a979f8344f
commit
154ca2e617
@ -98,7 +98,8 @@ sub check_spam {
|
|||||||
my $paddr = sockaddr_in($port, $iaddr);
|
my $paddr = sockaddr_in($port, $iaddr);
|
||||||
|
|
||||||
my $proto = getprotobyname('tcp');
|
my $proto = getprotobyname('tcp');
|
||||||
if ( $self->{_args}->{spamd_socket} =~ /^([\w\/.-]+)$/ ) { # connect to Unix Domain Socket
|
if ($self->{_args}->{spamd_socket} and
|
||||||
|
$self->{_args}->{spamd_socket} =~ /^([\w\/.-]+)$/ ) { # connect to Unix Domain Socket
|
||||||
my $spamd_socket = $1;
|
my $spamd_socket = $1;
|
||||||
|
|
||||||
socket(SPAMD, PF_UNIX, SOCK_STREAM, 0)
|
socket(SPAMD, PF_UNIX, SOCK_STREAM, 0)
|
||||||
|
Loading…
Reference in New Issue
Block a user