--- spamd/spamd.raw	2004-09-20 16:55:27.000000000 -0700
+++ spamd/memspamd	2004-10-01 17:20:00.000000000 -0700
@@ -779,6 +781,8 @@
     . Mail::SpamAssassin::Version()
     . ")" );
 
+rundump();
+
 # Fork off our children.
 for ( 1 .. $childlimit ) {
   spawn();
@@ -903,6 +907,8 @@
       }
       undef $current_user;
 
+rundump();
+
     }
 
     # If the child lives to get here, it will die ...  Muhaha.
@@ -1898,6 +1904,18 @@
   }
 }
 
+our $dumpcount = 0;
+sub rundump {
+  $dumpcount++;
+  warn "dumping to dumps/dump.$$.$dumpcount\n";
+  open (OLDERR, ">&STDERR");
+  open (STDERR, ">dumps/dump.$$.$dumpcount");
+  use Devel::Peek;
+  Dump ($spamtest, 9999);
+  close STDERR;
+  open (STDERR, ">&OLDERR");
+}
+
 __DATA__
 
 =head1 NAME