From a44957dc8651973862bd402d52eb192cd185dc9c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ask=20Bj=C3=B8rn=20Hansen?= Date: Thu, 3 Mar 2005 17:28:43 +0000 Subject: [PATCH] fix thinko from the log cleanup git-svn-id: https://svn.perl.org/qpsmtpd/trunk@381 958fd67b-6ff1-0310-b445-bb7760255be9 --- plugins/require_resolvable_fromhost | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/plugins/require_resolvable_fromhost b/plugins/require_resolvable_fromhost index 93babfc..c469533 100644 --- a/plugins/require_resolvable_fromhost +++ b/plugins/require_resolvable_fromhost @@ -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;