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

plugins/check_earlytalker

@@ -70,8 +70,8 @@ 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);