Fix "no pseudo hash" bug

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@515 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2005-07-18 12:50:35 +00:00
parent f096f293c1
commit 7edb1fd93a

View File

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