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:
parent
0b0e4e911a
commit
461dabc3e1
2
Changes
2
Changes
@ -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)
|
||||
|
@ -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 {
|
||||
|
Loading…
Reference in New Issue
Block a user