[svn:qpsmtpd] rev 437 - trunk/lib/Apache
[email protected] 18 Jun 2005 18:58:30 -0000
| Newsgroups | perl.cvs.qpsmtpd |
|---|---|
| Message-ID | <[email protected]> |
Author: msergeant
Date: Sat Jun 18 11:58:30 2005
New Revision: 437
Modified:
trunk/lib/Apache/Qpsmtpd.pm
Log:
Don't delete the buckets
Modified: trunk/lib/Apache/Qpsmtpd.pm
==============================================================================
--- trunk/lib/Apache/Qpsmtpd.pm (original)
+++ trunk/lib/Apache/Qpsmtpd.pm Sat Jun 18 11:58:30 2005
@@ -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;
}
}