[PATCH] www: enable and expand preload from mod_perl2

[Eric Wong <e@80x24.org>]

Hopefully this saves us some memory with CoW on *nix.
---
 lib/PublicInbox/WWW.pm | 7 +++++++
 public-inbox.cgi       | 7 +++++--
 2 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/lib/PublicInbox/WWW.pm b/lib/PublicInbox/WWW.pm
index 2de5471..54f6399 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 63663f3..75d510c 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',
-- 
EW