--- Message.pm.old	2004-03-04 14:16:11.000000000 +0000
+++ Message.pm	2004-03-08 16:07:48.000000000 +0000
@@ -1002,6 +1002,7 @@
   if ($maxparts>0 && MIME::Entity::MailScannerCounter()>=$maxparts) {
     #print STDERR "Found an error!\n";
     $pipe->close();
+    kill 9, $pid; # Make sure we are reaping a dead'un
     waitpid $pid, 0;
     MailScanner::Log::WarnLog("Too many attachments in %s", $this->{id});
     $this->{entity} = $entity; # In case it failed due to too many attachments
@@ -1013,6 +1014,7 @@
   #close($pipe);
   # Closing the pipe this way will reap the child, apparently!
   $pipe->close;
+  kill 9, $pid; # Make sure we are reaping a dead'un
   waitpid $pid, 0;
   $this->{entity} = $entity;
 