Revert "Spool body when $transaction->body_fh() is called"

This reverts commit a52660a646.

See http://www.nntp.perl.org/group/perl.qpsmtpd/2010/10/msg9453.html for discussion.
This commit is contained in:
Robert 2010-10-29 22:19:30 -07:00
parent 0b0e4e911a
commit 461dabc3e1
2 changed files with 3 additions and 4 deletions

View File

@ -16,6 +16,8 @@ Next Version
assorted documentation cleanups (Steve Kemp, Robert Spier) assorted documentation cleanups (Steve Kemp, Robert Spier)
Revert "Spool body when $transaction->body_fh() is called"
0.84 April 7, 2010 0.84 April 7, 2010
uribl: fix scan-headers option (Jost Krieger, Robert Spier) uribl: fix scan-headers option (Jost Krieger, Robert Spier)

View File

@ -213,10 +213,7 @@ sub body_as_string {
} }
sub body_fh { sub body_fh {
my ($self) = @_; return shift->{_body_file};
# Spool to disk if we weren't already doing so
$self->body_spool() unless $self->{_filename};
return $self->{_body_file};
} }
sub dup_body_fh { sub dup_body_fh {