From: <jgr...@us...> - 2003-05-05 17:53:23
|
Update of /cvsroot/popfile/engine In directory sc8-pr-cvs1:/tmp/cvs-serv9618 Modified Files: popfile.pl Log Message: Numerous updates to the mail parser to make colorization work for pseudowords, and fix various bugs Index: popfile.pl =================================================================== RCS file: /cvsroot/popfile/engine/popfile.pl,v retrieving revision 1.208 retrieving revision 1.209 diff -C2 -d -r1.208 -r1.209 *** popfile.pl 25 Mar 2003 05:24:51 -0000 1.208 --- popfile.pl 5 May 2003 17:50:09 -0000 1.209 *************** *** 126,129 **** --- 126,137 ---- sub forker { + # Tell all the modules that a fork is about to happen + + foreach my $type (keys %components) { + foreach my $name (keys %{$components{$type}}) { + $components{$type}{$name}->prefork(); + } + } + # Create the pipe that will be used to send data from the child to the parent process, # $writer will be returned to the child process and $reader to the parent process |