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)
|
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)
|
||||||
|
@ -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 {
|
||||||
|
Loading…
Reference in New Issue
Block a user