byterazor/qpsmtpd
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix for corruption problem under Apache

Browse Source 
git-svn-id: https://svn.perl.org/qpsmtpd/trunk@400 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2005-03-27 17:54:35 +00:00
parent f72647a44c
commit 172fee0798
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/Apache/Qpsmtpd.pm
View File

@ -112,11 +112,13 @@ sub getline {
my $rc = $c->input_filters->get_brigade($bb, Apache::MODE_GETLINE); my $rc = $c->input_filters->get_brigade($bb, Apache::MODE_GETLINE);
return if $rc == APR::EOF; return if $rc == APR::EOF;
die APR::Error::strerror($rc) unless $rc == APR::SUCCESS; die APR::Error::strerror($rc) unless $rc == APR::SUCCESS;
my $data = '';
while (!$bb->is_empty) { while (!$bb->is_empty) {
my $b = $bb->first; my $b = $bb->first;
$b->remove; $b->remove;
$b->read(my $data); $b->read(my $newdata);
$data .= $newdata;
return $data if index($data, "\n") >= 0; return $data if index($data, "\n") >= 0;
} }
} }