From 1670530a1abde3f4568e51b54a527e348e7ec4d1 Mon Sep 17 00:00:00 2001
From: Robert Spier <robert@perl.org>
Date: Sat, 27 Nov 2004 06:41:06 +0000
Subject: [PATCH] more logging

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@347 958fd67b-6ff1-0310-b445-bb7760255be9
---
 lib/Qpsmtpd/TcpServer.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/Qpsmtpd/TcpServer.pm b/lib/Qpsmtpd/TcpServer.pm
index 0ba26db..d2240c5 100644
--- a/lib/Qpsmtpd/TcpServer.pm
+++ b/lib/Qpsmtpd/TcpServer.pm
@@ -81,6 +81,7 @@ sub respond {
 
 sub disconnect {
   my $self = shift;
+  $self->log(LOGDEBUG,"click, disconnecting");
   $self->SUPER::disconnect(@_);
   exit;
 }