indentation and whitespace cleanup

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@295 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Robert Spier 2004-09-04 00:57:16 +00:00
parent e8bf8286fc
commit bdd20fed4d

View File

@ -232,14 +232,14 @@ sub run_hooks {
."running the $hook hook returned undef!") ."running the $hook hook returned undef!")
and next; and next;
# should we have a hook for "OK" too? # should we have a hook for "OK" too?
if ($r[0] == DENY or $r[0] == DENYSOFT) { if ($r[0] == DENY or $r[0] == DENYSOFT) {
$r[1] = "" if not defined $r[1]; $r[1] = "" if not defined $r[1];
$self->log(LOGDEBUG, "Plugin $code->{name}, hook $hook returned $r[0], $r[1]"); $self->log(LOGDEBUG, "Plugin $code->{name}, hook $hook returned $r[0], $r[1]");
$self->run_hooks("deny", $code->{name}, $r[0], $r[1]) unless ($hook eq "deny"); $self->run_hooks("deny", $code->{name}, $r[0], $r[1]) unless ($hook eq "deny");
} }
last unless $r[0] == DECLINED; last unless $r[0] == DECLINED;
} }
$r[0] = DECLINED if not defined $r[0]; $r[0] = DECLINED if not defined $r[0];
return @r; return @r;