Merge pull request #154 from jaredj/perltidy

perltidy -b lib/Qpsmtpd/Plugin.pm
This commit is contained in:
Matt Simerson 2014-11-14 13:26:41 -08:00
commit 664990b425

View File

@ -275,7 +275,7 @@ sub store_auth_results {
}; };
my $ar = join('; ', $auths, $result); my $ar = join('; ', $auths, $result);
$self->log(LOGDEBUG, "auth-results: $ar"); $self->log(LOGDEBUG, "auth-results: $ar");
$self->qp->connection->notes('authentication_results', $ar ); $self->qp->connection->notes('authentication_results', $ar);
} }
sub is_immune { sub is_immune {
@ -306,7 +306,7 @@ sub is_naughty {
my ($self, $setit) = @_; my ($self, $setit) = @_;
# see plugins/naughty # see plugins/naughty
return $self->connection->notes('naughty') if ! defined $setit; return $self->connection->notes('naughty') if !defined $setit;
$self->connection->notes('naughty', $setit); $self->connection->notes('naughty', $setit);
$self->connection->notes('rejected', $setit); $self->connection->notes('rejected', $setit);
@ -342,7 +342,7 @@ sub _register_standard_hooks {
my $hooksub = "hook_$hook"; my $hooksub = "hook_$hook";
$hooksub =~ s/\W/_/g; $hooksub =~ s/\W/_/g;
next if !$plugin->can($hooksub); next if !$plugin->can($hooksub);
$plugin->register_hook($hook, $hooksub) $plugin->register_hook($hook, $hooksub);
} }
} }