I'm Going To Personally Ensure This Explodes Horribly

diff --git a/gorillanest b/gorillanest
index 41e5c3453af1e85f7f74291bf80fe4d979d6d0e7..300731d3b77e96a0af3c8a84ed7936d0bb8a9e4b 100755 (executable)
--- a/gorillanest
+++ b/gorillanest
@@ -61,6 +61,7 @@ sub GN::repository { # /$username/$repository
 }
 
 openlog("gorillanest", "ndelay,pid", Sys::Syslog::LOG_DAEMON);
+my $sock = FCGI::OpenSocket('/tmp/gorillanest.socket', 100);
 try {
     my $public = 'git/public';
     my $dbfile = 'gorillanest.sqlite3';
@@ -68,7 +69,8 @@ try {
         found => 0,
         access => 0,
         );
-    my $request = FCGI::Request();
+
+    my $request = FCGI::Request(\*STDIN, \*STDOUT, \*STDERR, \%ENV, $sock);
     my $template = Template->new({INCLUDE_PATH => 'template'});
     my $head = 0;
     my $a_template;
@@ -111,3 +113,4 @@ try {
 } catch ($error) {
     info("Crashed: $error");
 }
+FCGI::CloseSocket($sock);