Quiet warnings (Steve_p)

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@714 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2007-02-13 18:29:47 +00:00
parent 76d3fe44db
commit 237bf904a5

View File

@ -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;
} }