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)
Revert "Spool body when $transaction->body_fh() is called"
0.84 April 7, 2010
uribl: fix scan-headers option (Jost Krieger, Robert Spier)

View File

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