Merge branch 'master' of https://github.com/nigelhorne/Geo-Coder-Free

nigelhorne · Sep 26, 2018 · 9992563 · 9992563
2 parents d3e76bc + 06b61af
commit 9992563
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/cgi-bin/page.fcgi b/cgi-bin/page.fcgi
@@ -6,6 +6,9 @@
 # use File::HomeDir;
 # use lib File::HomeDir->my_home() . '/lib/perl5';
 
+# Can be tested at the command line, e.g.:
+# rootdir=$(pwd)/.. ./page.fcgi page=index
+
 # TODO: use the memory_cache in the config file for the database searches
 
 use strict;
@@ -28,6 +31,7 @@ use Error qw(:try);
 use File::Spec;
 use Log::WarnDie 0.09;
 use CGI::ACL;
+use HTTP::Date;
 use autodie qw(:all);
 
 # use lib '/usr/lib';	# This needs to point to the Geo::Coder::Free directory lives,
@@ -97,6 +101,7 @@ sub sig_handler {
 			$buffercache->purge();
 		}
 		CHI->stats->flush();
+		Log::WarnDie->dispatcher(undef);
 		exit(0);
 	}
 }
@@ -167,6 +172,7 @@ if($buffercache) {
 	$buffercache->purge();
 }
 CHI->stats->flush();
+Log::WarnDie->dispatcher(undef);
 exit(0);
 
 sub doit