[svn:qpsmtpd] r554 - branches/0.31/lib/Qpsmtpd

Author: jpeacock
Date: Thu Oct 20 11:47:28 2005
New Revision: 554

Modified:
   branches/0.31/lib/Qpsmtpd/Transaction.pm
Log:
* lib/Qpsmtpd/Transaction.pm
    Doh!  I should flush() not close(), since other code assume the handle
    is still active.

Modified: branches/0.31/lib/Qpsmtpd/Transaction.pm
==============================================================================
--- branches/0.31/lib/Qpsmtpd/Transaction.pm	(original)
+++ branches/0.31/lib/Qpsmtpd/Transaction.pm	Thu Oct 20 11:47:28 2005
@@ -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};
 }