fix thinko from the log cleanup
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@381 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
parent
43aa207242
commit
a44957dc86
@ -13,7 +13,7 @@ sub mail_handler {
|
||||
|
||||
$sender->format ne "<>"
|
||||
and $self->qp->config("require_resolvable_fromhost")
|
||||
and !check_dns($sender->host)
|
||||
and !$self->check_dns($sender->host)
|
||||
and return (DENYSOFT,
|
||||
($sender->host
|
||||
? "Could not resolve ". $sender->host
|
||||
@ -25,7 +25,7 @@ sub mail_handler {
|
||||
|
||||
|
||||
sub check_dns {
|
||||
my $host = shift;
|
||||
my ($self, $host) = @_;
|
||||
|
||||
# for stuff where we can't even parse a hostname out of the address
|
||||
return 0 unless $host;
|
||||
|
Loading…
Reference in New Issue
Block a user