Redefinition Is Expected

diff --git a/config.default.pl b/config.default.pl
index 9fbc1a2884018b70f619578ca5302128799ffec0..167630c8883ec915f4af02ea624f8156af1bceb2 100644 (file)
--- a/config.default.pl
+++ b/config.default.pl
@@ -1,18 +1,22 @@
 # always assume anything to do with files or directories is ran at project root
 
+use constant {
+
 # If you're using lighttpd, set this to 1
 # This disables SOCKET_FILE and lets the socket handling be externally managed
-use constant BARE_REQUEST => 0;
+BARE_REQUEST           => 0,
+
+IMMORTAL               => 1, # will continue handling request after death/error
 
-use constant IMMORTAL => 1; # will continue handling request after death/error
+LOG_FILE               => '/tmp/gorillanest.log',
+DB_FILE                => 'gorillanest.sqlite3', # sqlite3
 
-use constant LOG_FILE => '/tmp/gorillanest.log';
-use constant DB_FILE => 'gorillanest.sqlite3'; # sqlite3
+SOCKET_FILE            => '/tmp/gorillanest.socket',
+SOCKET_MAX_CONNECTIONS => 100,
 
-use constant SOCKET_FILE => '/tmp/gorillanest.socket';
-use constant SOCKET_MAX_CONNECTIONS => 100;
+TEMPLATE_ROOT          => 'template', # template directory
+GIT_ROOT               => 'git',      # git directory (~user/repo)
 
-use constant TEMPLATE_ROOT => 'template'; # template directory
-use constant GIT_ROOT => 'git'; # git directory (~user/repo)
+}
 
 1;

diff --git a/perl/cgi.pl b/perl/cgi.pl
index 3cbed421cc800660f67d629f3edd3ecad1e00d50..f8dc7ac7ee33afb560385e9c3044bf27bed1fce0 100755 (executable)
--- a/perl/cgi.pl
+++ b/perl/cgi.pl
@@ -21,8 +21,10 @@ use Data::Dumper;
 use Git::Repository;
 
 use lib qw(. ..);
+no warnings 'redefine';
 BEGIN { require 'config.default.pl'; }
 BEGIN { require 'config.pl'; }
+use warnings 'redefine';
 
 sub info {
     warn join(' ', @_);