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}; }