add connection->reset also for -async

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@897 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Hanno Hecker 2008-05-10 05:55:56 +00:00
parent 104c8b1710
commit 7ad1054507

View File

@ -152,6 +152,7 @@ sub disconnect {
sub close { sub close {
my Qpsmtpd::PollServer $self = shift; my Qpsmtpd::PollServer $self = shift;
$self->run_hooks("post-connection"); $self->run_hooks("post-connection");
$self->connection->reset;
$self->SUPER::close; $self->SUPER::close;
} }