From d7ef2ac6609651be20b6e51cf4de0e42fb08232b Mon Sep 17 00:00:00 2001
From: Hanno Hecker <vetinari@ankh-morp.org>
Date: Sat, 17 May 2008 09:33:33 +0000
Subject: [PATCH] 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
---
 lib/Qpsmtpd/TcpServer/Prefork.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/lib/Qpsmtpd/TcpServer/Prefork.pm b/lib/Qpsmtpd/TcpServer/Prefork.pm
index 7caae1c..96d1753 100644
--- a/lib/Qpsmtpd/TcpServer/Prefork.pm
+++ b/lib/Qpsmtpd/TcpServer/Prefork.pm
@@ -39,6 +39,8 @@ sub read_input {
   if ($@ =~ /^disconnect_tcpserver/) {
   	die "disconnect_tcpserver";
   } else {
+  	$self->run_hooks("post-connection");
+	$self->connection->reset;
   	die "died while reading from STDIN (probably broken sender) - $@";
   }
   alarm(0);