|
Lines 779-784
Link Here
|
| 779 |
. Mail::SpamAssassin::Version() |
781 |
. Mail::SpamAssassin::Version() |
| 780 |
. ")" ); |
782 |
. ")" ); |
| 781 |
|
783 |
|
|
|
784 |
rundump(); |
| 785 |
|
| 782 |
# Fork off our children. |
786 |
# Fork off our children. |
| 783 |
for ( 1 .. $childlimit ) { |
787 |
for ( 1 .. $childlimit ) { |
| 784 |
spawn(); |
788 |
spawn(); |
|
Lines 903-908
Link Here
|
| 903 |
} |
907 |
} |
| 904 |
undef $current_user; |
908 |
undef $current_user; |
| 905 |
|
909 |
|
|
|
910 |
rundump(); |
| 911 |
|
| 906 |
} |
912 |
} |
| 907 |
|
913 |
|
| 908 |
# If the child lives to get here, it will die ... Muhaha. |
914 |
# If the child lives to get here, it will die ... Muhaha. |
|
Lines 1898-1903
Link Here
|
| 1898 |
} |
1904 |
} |
| 1899 |
} |
1905 |
} |
| 1900 |
|
1906 |
|
|
|
1907 |
our $dumpcount = 0; |
| 1908 |
sub rundump { |
| 1909 |
$dumpcount++; |
| 1910 |
warn "dumping to dumps/dump.$$.$dumpcount\n"; |
| 1911 |
open (OLDERR, ">&STDERR"); |
| 1912 |
open (STDERR, ">dumps/dump.$$.$dumpcount"); |
| 1913 |
use Devel::Peek; |
| 1914 |
Dump ($spamtest, 9999); |
| 1915 |
close STDERR; |
| 1916 |
open (STDERR, ">&OLDERR"); |
| 1917 |
} |
| 1918 |
|
| 1901 |
__DATA__ |
1919 |
__DATA__ |
| 1902 |
|
1920 |
|
| 1903 |
=head1 NAME |
1921 |
=head1 NAME |
