From: mkanat%bugzilla.org <>
Date: Thu, 12 Feb 2009 19:14:56 +0000 (+0000)
Subject: Bug 476622: Assure that mod_perl children always receive a different srand() seed
X-Git-Tag: bugzilla-3.3.4~47
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=1708f41aa376f3385f1bd0b90e3b1741961ec89d;p=thirdparty%2Fbugzilla.git

Bug 476622: Assure that mod_perl children always receive a different srand() seed
Patch by Max Kanat-Alexander <mkanat@bugzilla.org> r=gozer, a=mkanat
---

diff --git a/mod_perl.pl b/mod_perl.pl
index fe78c4be98..1e5c7fc633 100644
--- a/mod_perl.pl
+++ b/mod_perl.pl
@@ -53,6 +53,8 @@ my $cgi_path = Bugzilla::Constants::bz_locations()->{'cgi_path'};
 # Set up the configuration for the web server
 my $server = Apache2::ServerUtil->server;
 my $conf = <<EOT;
+# Make sure each httpd child receives a different random seed (bug 476622)
+PerlChildInitHandler "sub { srand(); }"
 <Directory "$cgi_path">
     AddHandler perl-script .cgi
     # No need to PerlModule these because they're already defined in mod_perl.pl