Permalink
Browse files

fix thinko from the log cleanup

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@381 958fd67b-6ff1-0310-b445-bb7760255be9
  • Loading branch information...
1 parent 43aa207 commit a44957dc8651973862bd402d52eb192cd185dc9c @abh abh committed Mar 3, 2005
Showing with 2 additions and 2 deletions.
  1. +2 −2 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;

0 comments on commit a44957d

Please sign in to comment.