qpsmtpd/sme8/0037-Revert-Spool-body-when-transaction-body_fh-is-called.patch

From 461dabc3e1e7ef456358c15219b2b343c02ff43e Mon Sep 17 00:00:00 2001
From: Robert <rspier@pobox.com>
Date: Fri, 29 Oct 2010 22:19:30 -0700
Subject: Revert "Spool body when $transaction->body_fh() is called"

This reverts commit a52660a646012691f993cca821c00fe05cff08bb.

See http://www.nntp.perl.org/group/perl.qpsmtpd/2010/10/msg9453.html for discussion.
---
 Changes                    |    2 ++
 lib/Qpsmtpd/Transaction.pm |    5 +----
 2 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/Changes b/Changes
index a864b4f..a3437ef 100644
--- a/Changes
+++ b/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)
diff --git a/lib/Qpsmtpd/Transaction.pm b/lib/Qpsmtpd/Transaction.pm
index 1dec547..a828fb6 100644
--- a/lib/Qpsmtpd/Transaction.pm
+++ b/lib/Qpsmtpd/Transaction.pm
@@ -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 {
-- 
1.7.2.2

1	From 461dabc3e1e7ef456358c15219b2b343c02ff43e Mon Sep 17 00:00:00 2001
2	From: Robert <rspier@pobox.com>
3	Date: Fri, 29 Oct 2010 22:19:30 -0700
4	Subject: Revert "Spool body when $transaction->body_fh() is called"
5
6	This reverts commit a52660a646012691f993cca821c00fe05cff08bb.
7
8	See http://www.nntp.perl.org/group/perl.qpsmtpd/2010/10/msg9453.html for discussion.
9	---
10	Changes \| 2 ++
11	lib/Qpsmtpd/Transaction.pm \| 5 +----
12	2 files changed, 3 insertions(+), 4 deletions(-)
13
14	diff --git a/Changes b/Changes
15	index a864b4f..a3437ef 100644
16	--- a/Changes
17	+++ b/Changes
18	@@ -16,6 +16,8 @@ Next Version
19
20	assorted documentation cleanups (Steve Kemp, Robert Spier)
21
22	+ Revert "Spool body when $transaction->body_fh() is called"
23	+
24	0.84 April 7, 2010
25
26	uribl: fix scan-headers option (Jost Krieger, Robert Spier)
27	diff --git a/lib/Qpsmtpd/Transaction.pm b/lib/Qpsmtpd/Transaction.pm
28	index 1dec547..a828fb6 100644
29	--- a/lib/Qpsmtpd/Transaction.pm
30	+++ b/lib/Qpsmtpd/Transaction.pm
31	@@ -213,10 +213,7 @@ sub body_as_string {
32	}
33
34	sub body_fh {
35	- my ($self) = @_;
36	- # Spool to disk if we weren't already doing so
37	- $self->body_spool() unless $self->{_filename};
38	- return $self->{_body_file};
39	+ return shift->{_body_file};
40	}
41
42	sub dup_body_fh {
43	--
44	1.7.2.2
45