use $self->can_read rather than $self->qp->can_read with high perf patch

git-svn-id: https://svn.perl.org/qpsmtpd/branches/high_perf@392 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Ask Bjørn Hansen 2005-03-09 00:20:32 +00:00
parent 93e0025aae
commit df1efdce73

View File

@ -71,7 +71,7 @@ sub register {
sub connect_handler {
my ($self, $transaction) = @_;
if ($self->qp->can_read($self->{_args}->{'wait'})) {
if ($self->can_read($self->{_args}->{'wait'})) {
$self->log(LOGNOTICE, 'remote host started talking before we said hello');
if ($self->{_args}->{'defer-reject'}) {
$self->connection->notes('earlytalker', 1);