Correct way to support check_earlytalker with PollServer.

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@712 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
John Peacock 2007-02-07 22:25:44 +00:00
parent fea300ed2e
commit 76d3fe44db
2 changed files with 2 additions and 1 deletions

View File

@ -15,6 +15,7 @@ use fields qw(
hooks hooks
start_time start_time
cmd_timeout cmd_timeout
conn
_auth _auth
_auth_mechanism _auth_mechanism
_auth_state _auth_state

View File

@ -66,7 +66,7 @@ sub register {
'defer-reject' => 0, 'defer-reject' => 0,
@args, @args,
}; };
if (exists $qp->{conn} && $qp->{conn}->isa('Apache2::Connection')) { if ( $qp->{conn} && $qp->{conn}->isa('Apache2::Connection')) {
require APR::Const; require APR::Const;
APR::Const->import(qw(POLLIN SUCCESS)); APR::Const->import(qw(POLLIN SUCCESS));
$self->register_hook('connect', 'apr_connect_handler'); $self->register_hook('connect', 'apr_connect_handler');