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:
parent
fed6fe0311
commit
d7ef2ac660
@ -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);
|
||||||
|
Loading…
Reference in New Issue
Block a user