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:
Ask Bjørn Hansen 2005-03-03 17:28:43 +00:00
parent 43aa207242
commit a44957dc86

View File

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