fix minor warning introduced with the data hook
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@270 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
parent
c60710e871
commit
b9dca51d2a
@ -487,7 +487,7 @@ sub data {
|
|||||||
#$self->respond(550, $self->transaction->blocked),return 1 if ($self->transaction->blocked);
|
#$self->respond(550, $self->transaction->blocked),return 1 if ($self->transaction->blocked);
|
||||||
$self->respond(552, "Message too big!"),return 1 if $max_size and $size > $max_size;
|
$self->respond(552, "Message too big!"),return 1 if $max_size and $size > $max_size;
|
||||||
|
|
||||||
my ($rc, $msg) = $self->run_hooks("data_post");
|
($rc, $msg) = $self->run_hooks("data_post");
|
||||||
if ($rc == DONE) {
|
if ($rc == DONE) {
|
||||||
return 1;
|
return 1;
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user