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:
parent
8b85efcfe8
commit
014efa87c4
@ -117,9 +117,8 @@ sub getline {
|
||||
while (!$bb->is_empty) {
|
||||
my $b = $bb->first;
|
||||
$b->read(my $newdata);
|
||||
$b->delete;
|
||||
$data .= $newdata;
|
||||
return $data if index($data, "\n") >= 0;
|
||||
return $data if index($newdata, "\n") >= 0;
|
||||
}
|
||||
}
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user