aboutsummaryrefslogtreecommitdiff
path: root/perl
diff options
context:
space:
mode:
Diffstat (limited to 'perl')
-rwxr-xr-xperl/cgi.pl2
-rwxr-xr-xperl/fcgi.pl1
2 files changed, 1 insertions, 2 deletions
diff --git a/perl/cgi.pl b/perl/cgi.pl
index 3cbed42..d19c915 100755
--- a/perl/cgi.pl
+++ b/perl/cgi.pl
@@ -22,7 +22,7 @@ use Git::Repository;
use lib qw(. ..);
BEGIN { require 'config.default.pl'; }
-BEGIN { require 'config.pl'; }
+BEGIN { require 'config.pl' if -f 'config.pl'; }
sub info {
warn join(' ', @_);
diff --git a/perl/fcgi.pl b/perl/fcgi.pl
index 0f3dff8..b3e6d9e 100755
--- a/perl/fcgi.pl
+++ b/perl/fcgi.pl
@@ -11,7 +11,6 @@ BEGIN { require 'cgi.pl'; }
while (1) {
try {
- open STDERR, '>', LOG_FILE or die LOG_FILE . ": $!";
my $request = FCGI::Request( \*STDIN, \*STDOUT, \*STDERR, \%ENV, BARE_REQUEST ? 0 : FCGI::OpenSocket(SOCKET_FILE, SOCKET_MAX_CONNECTIONS));
while($request->Accept() >= 0) {
master();