Quiet warnings (Steve_p)
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@714 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
parent
76d3fe44db
commit
237bf904a5
@ -102,7 +102,8 @@ sub hook_data_post { # check_spam
|
|||||||
|
|
||||||
my $remote = 'localhost';
|
my $remote = 'localhost';
|
||||||
my $port = 783;
|
my $port = 783;
|
||||||
if ($self->{_args}->{spamd_socket} =~ /^([\w.-]+):(\d+)$/) {
|
if (defined $self->{_args}->{spamd_socket}
|
||||||
|
&& $self->{_args}->{spamd_socket} =~ /^([\w.-]+):(\d+)$/) {
|
||||||
$remote = $1;
|
$remote = $1;
|
||||||
$port = $2;
|
$port = $2;
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user