* lib/Qpsmtpd/Transaction.pm

    Doh!  I should flush() not close(), since other code assume the handle
    is still active.

git-svn-id: https://svn.perl.org/qpsmtpd/branches/0.31@554 958fd67b-6ff1-0310-b445-bb7760255be9

lib/Qpsmtpd/Transaction.pm

@@ -91,7 +91,7 @@ sub body_current_pos {
 sub body_filename {
   my $self = shift;
   $self->body_spool() unless $self->{_filename};
-  $self->{_body_file}->close(); # so contents won't be cached
+  $self->{_body_file}->flush(); # so contents won't be cached
   return $self->{_filename};
 }