From: Eric Wong <e@80x24.org>
Date: Sat, 22 Aug 2015 05:06:57 +0000 (+0000)
Subject: www: enable and expand preload from mod_perl2
X-Git-Tag: v1.0.0~1008
X-Git-Url: http://www.git.stargrave.org/?p=public-inbox.git;a=commitdiff_plain;h=797ba8046562864a09ed36e6040055babb536615

www: enable and expand preload from mod_perl2

Hopefully this saves us some memory with CoW on *nix.
---

diff --git a/lib/PublicInbox/WWW.pm b/lib/PublicInbox/WWW.pm
index 2de54719..54f63991 100644
--- a/lib/PublicInbox/WWW.pm
+++ b/lib/PublicInbox/WWW.pm
@@ -77,10 +77,17 @@ sub preload {
 	require PublicInbox::Feed;
 	require PublicInbox::View;
 	require PublicInbox::Thread;
+	require PublicInbox::GitCatFile;
 	require Email::MIME;
 	require Digest::SHA;
 	require POSIX;
 	require XML::Atom::SimpleFeed;
+
+	eval {
+		require PublicInbox::Search;
+		require PublicInbox::Mbox;
+		require IO::Compress::Gzip;
+	};
 }
 
 # private functions below
diff --git a/public-inbox.cgi b/public-inbox.cgi
index 63663f32..75d510c0 100755
--- a/public-inbox.cgi
+++ b/public-inbox.cgi
@@ -4,13 +4,16 @@
 use strict;
 use warnings;
 use IO::Handle;
-require PublicInbox::WWW;
+use PublicInbox::WWW;
 use CGI qw/-nosticky/;
 our $NO_SCRIPT_NAME;
 our %HTTP_CODES;
 BEGIN {
 	$NO_SCRIPT_NAME = 1 if $ENV{NO_SCRIPT_NAME};
-	CGI->compile if $ENV{MOD_PERL};
+	if ($ENV{MOD_PERL}) {
+		CGI->compile;
+		PublicInbox::WWW->preload;
+	}
 
 	%HTTP_CODES = (
 		200 => 'OK',