gitweb: Precompile CGI routines for mod_perl

[Gitweb] / gitweb.perl

diff --git a/gitweb.perl b/gitweb.perl
index 8b257eec5e5c0d149f00b7a3faa24fa7b81f7c34b2e21da94442a5cfc100e4ff..59f41b0243a962bc5033a991fa8ff7d4396353ea5e830079fc7dac781d990c19 100755 (executable)
--- a/gitweb.perl
+++ b/gitweb.perl
@@ -18,6 +18,10 @@ use File::Find qw();
 use File::Basename qw(basename);
 binmode STDOUT, ':utf8';
 
 use File::Basename qw(basename);
 binmode STDOUT, ':utf8';
 

+BEGIN {
+       CGI->compile() if $ENV{MOD_PERL};
+}
+

 our $cgi = new CGI;
 our $version = "++GIT_VERSION++";
 our $my_url = $cgi->url();
 our $cgi = new CGI;
 our $version = "++GIT_VERSION++";
 our $my_url = $cgi->url();