Don't delete the buckets

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@437 958fd67b-6ff1-0310-b445-bb7760255be9
This commit is contained in:
Matt Sergeant 2005-06-18 18:58:30 +00:00
parent 8b85efcfe8
commit 014efa87c4

View File

@ -117,9 +117,8 @@ sub getline {
while (!$bb->is_empty) { while (!$bb->is_empty) {
my $b = $bb->first; my $b = $bb->first;
$b->read(my $newdata); $b->read(my $newdata);
$b->delete;
$data .= $newdata; $data .= $newdata;
return $data if index($data, "\n") >= 0; return $data if index($newdata, "\n") >= 0;
} }
} }