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:
parent
f096f293c1
commit
7edb1fd93a
@ -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');
|
||||||
|
Loading…
Reference in New Issue
Block a user