[svn:qpsmtpd] rev 416 - branches/high_perf/lib/Qpsmtpd

Author: msergeant
Date: Thu May 12 05:58:13 2005
New Revision: 416

Modified:
   branches/high_perf/lib/Qpsmtpd/Transaction.pm
Log:
Fix warning


Modified: branches/high_perf/lib/Qpsmtpd/Transaction.pm
==============================================================================
--- branches/high_perf/lib/Qpsmtpd/Transaction.pm	(original)
+++ branches/high_perf/lib/Qpsmtpd/Transaction.pm	Thu May 12 05:58:13 2005
@@ -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;