Fix for in-memory code copying headers twice

git-svn-id: https://svn.perl.org/qpsmtpd/branches/high_perf@422 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2005-05-20 12:39:05 +00:00
parent 9432e1bac1
commit ec9ddc09d2

View File

@ -64,6 +64,17 @@ sub notes {
sub set_body_start { sub set_body_start {
my $self = shift; my $self = shift;
$self->{_body_start} = $self->body_current_pos; $self->{_body_start} = $self->body_current_pos;
if ($self->{_body_file}) {
$self->{_header_size} = $self->{_body_start};
}
else {
$self->{_header_size} = 0;
if ($self->{_body_array}) {
foreach my $line (@{ $self->{_body_array} }) {
$self->{_header_size} += length($line);
}
}
}
} }
sub body_start { sub body_start {
@ -123,6 +134,7 @@ sub body_write {
foreach my $line (@{ $self->{_body_array} }) { foreach my $line (@{ $self->{_body_array} }) {
$self->{_body_file}->print($line) or die "Cannot print to temp file: $!"; $self->{_body_file}->print($line) or die "Cannot print to temp file: $!";
} }
$self->{_body_start} = $self->{_header_size};
} }
$self->{_body_array} = undef; $self->{_body_array} = undef;
} }