From 4578cd6eff6e8bc22a27816913f504589a869390 Mon Sep 17 00:00:00 2001
From: Matt Sergeant <matt@sergeant.org>
Date: Mon, 12 May 2008 17:19:31 +0000
Subject: [PATCH] Make sure non-responding hooks are called appropriately

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@903 958fd67b-6ff1-0310-b445-bb7760255be9
---
 lib/Qpsmtpd/PollServer.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Qpsmtpd/PollServer.pm b/lib/Qpsmtpd/PollServer.pm
index a9812a7..566bf04 100644
--- a/lib/Qpsmtpd/PollServer.pm
+++ b/lib/Qpsmtpd/PollServer.pm
@@ -56,7 +56,7 @@ sub new {
     $self->load_plugins;
     $self->load_logging;
 
-    my ($rc, @msg) = $self->run_hooks("pre-connection");
+    my ($rc, @msg) = $self->run_hooks_no_respond("pre-connection");
     if ($rc == DENYSOFT || $rc == DENYSOFT_DISCONNECT) {
         @msg = ("Sorry, try again later")
           unless @msg;
@@ -164,7 +164,7 @@ sub disconnect {
 
 sub close {
     my Qpsmtpd::PollServer $self = shift;
-    $self->run_hooks("post-connection");
+    $self->run_hooks_no_respond("post-connection");
     $self->connection->reset;
     $self->SUPER::close;
 }