From 7edb1fd93adb6c87f434c0517369e0c77cb7078a Mon Sep 17 00:00:00 2001
From: Matt Sergeant <matt@sergeant.org>
Date: Mon, 18 Jul 2005 12:50:35 +0000
Subject: [PATCH] Fix "no pseudo hash" bug

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@515 958fd67b-6ff1-0310-b445-bb7760255be9
---
 plugins/check_earlytalker | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/plugins/check_earlytalker b/plugins/check_earlytalker
index df4eab4..c356dc5 100644
--- a/plugins/check_earlytalker
+++ b/plugins/check_earlytalker
@@ -59,7 +59,7 @@ sub register {
 	'defer-reject' => 0,
 	@args,
   };
-  if ($qp->{conn} && $qp->{conn}->isa('Apache2::Connection')) {
+  if ($qp->isa('Qpsmtpd::Apache')) {
       require APR::Const;
       APR::Const->import(qw(POLLIN SUCCESS));
       $self->register_hook('connect', 'hook_connect_apr');