From e67bbed2ac59e411547d7a5a00821238e3d6a5f4 Mon Sep 17 00:00:00 2001
From: John Peacock <jpeacock@cpan.org>
Date: Thu, 20 Oct 2005 18:47:28 +0000
Subject: [PATCH] * 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 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Qpsmtpd/Transaction.pm b/lib/Qpsmtpd/Transaction.pm
index 6fb0f49..ea1d41c 100644
--- a/lib/Qpsmtpd/Transaction.pm
+++ b/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};
 }