prefork: post-connection hook was not called every time a client disconnects

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@912 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Hanno Hecker 2008-05-17 09:33:33 +00:00 committed by Ask Bjørn Hansen
parent fed6fe0311
commit d7ef2ac660

View File

@ -39,6 +39,8 @@ sub read_input {
if ($@ =~ /^disconnect_tcpserver/) { if ($@ =~ /^disconnect_tcpserver/) {
die "disconnect_tcpserver"; die "disconnect_tcpserver";
} else { } else {
$self->run_hooks("post-connection");
$self->connection->reset;
die "died while reading from STDIN (probably broken sender) - $@"; die "died while reading from STDIN (probably broken sender) - $@";
} }
alarm(0); alarm(0);