From 76d3fe44db48a7d1c58922d301835e7b0315cf8b Mon Sep 17 00:00:00 2001
From: John Peacock <jpeacock@cpan.org>
Date: Wed, 7 Feb 2007 22:25:44 +0000
Subject: [PATCH] Correct way to support check_earlytalker with PollServer.

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@712 958fd67b-6ff1-0310-b445-bb7760255be9
---
 lib/Qpsmtpd/PollServer.pm | 1 +
 plugins/check_earlytalker | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/Qpsmtpd/PollServer.pm b/lib/Qpsmtpd/PollServer.pm
index a22b5ed..cad8fab 100644
--- a/lib/Qpsmtpd/PollServer.pm
+++ b/lib/Qpsmtpd/PollServer.pm
@@ -15,6 +15,7 @@ use fields qw(
     hooks
     start_time
     cmd_timeout
+    conn
     _auth
     _auth_mechanism
     _auth_state
diff --git a/plugins/check_earlytalker b/plugins/check_earlytalker
index b35aa71..ce5789d 100644
--- a/plugins/check_earlytalker
+++ b/plugins/check_earlytalker
@@ -66,7 +66,7 @@ sub register {
         'defer-reject' => 0,
         @args,
   };
-  if (exists $qp->{conn} && $qp->{conn}->isa('Apache2::Connection')) {
+  if ( $qp->{conn} && $qp->{conn}->isa('Apache2::Connection')) {
       require APR::Const;
       APR::Const->import(qw(POLLIN SUCCESS));
       $self->register_hook('connect', 'apr_connect_handler');