PATCH: high_perf: avoid warning when no plugins run on body

[David Sparks]

I'm getting a warning on every message:

Use of uninitialized value in array element at
[...]lib/Qpsmtpd/Transaction.pm line 164.

I actually don't use any plugins that run on the body.  Perhaps
_body_current_pos is being initialized by plugins that parse the body?


--- Transaction.pm      2005-05-11 16:43:37.167427018 -0700
+++ Transaction.pm.new  2005-05-11 19:57:40.299884709 -0700
@@ -160,6 +160,7 @@
   }
   else {
     return unless $self->{_body_array};
+    $self->{_body_current_pos} ||= 0;
     my $line = $self->{_body_array}->[$self->{_body_current_pos}];
     $self->{_body_current_pos}++;
     return $line;