[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;
         }
     }