From 99e0455fa429e9564bdb031f217705c8d9b74ce4 Mon Sep 17 00:00:00 2001
From: Matt Sergeant <matt@sergeant.org>
Date: Fri, 30 Dec 2005 19:49:38 +0000
Subject: [PATCH] Fix long standing bug of returning 1 not DONE

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

diff --git a/lib/Qpsmtpd/SMTP.pm b/lib/Qpsmtpd/SMTP.pm
index d61fcee..a61d4e7 100644
--- a/lib/Qpsmtpd/SMTP.pm
+++ b/lib/Qpsmtpd/SMTP.pm
@@ -93,7 +93,7 @@ sub start_conversation {
     # lib/Qpsmtpd/TcpServer.pm for more confusion.
     my ($rc, $msg) = $self->run_hooks("connect");
     return $self->connect_respond($rc, $msg) unless $rc == CONTINUATION;
-    return 1;
+    return DONE;
 }
 
 sub connect_respond {