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:
Ask Bjørn Hansen 2004-07-16 09:44:39 +00:00
parent c60710e871
commit b9dca51d2a

View File

@ -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;
} }