diff options
Diffstat (limited to 'gorillanest.pl.fcgi')
| -rwxr-xr-x | gorillanest.pl.fcgi | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gorillanest.pl.fcgi b/gorillanest.pl.fcgi index d44df66..a9d77c0 100755 --- a/gorillanest.pl.fcgi +++ b/gorillanest.pl.fcgi @@ -6,11 +6,13 @@ use warnings; use Syntax::Keyword::Try; use FCGI; +use lib '.'; BEGIN { require 'gorillanest.pl.cgi'; } -our $request = FCGI::Request(); - try { + open STDERR, '>', LOG_FILE or die LOG_FILE . ": $!"; + my $sock = FCGI::OpenSocket(SOCKET_FILE, 100); + my $request = FCGI::Request(\*STDIN, \*STDOUT, \*STDERR, \%ENV, $sock); while($request->Accept() >= 0) { master(); } |
