diff options
author | Matthew Somerville <matthew@mysociety.org> | 2013-10-24 20:44:56 +0100 |
---|---|---|
committer | Matthew Somerville <matthew@mysociety.org> | 2013-10-24 21:34:46 +0100 |
commit | 604d306f4fc0f0024fc9a493f391413811dfbb3f (patch) | |
tree | 37f387602688877a84614dfb16e0dda7684a6d3b /perllib/FixMyStreet.pm | |
parent | cd51c26830d4f6ba144874e2f26010f7b6b76636 (diff) |
More accurate config overriding for Zurich.
Diffstat (limited to 'perllib/FixMyStreet.pm')
-rw-r--r-- | perllib/FixMyStreet.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perllib/FixMyStreet.pm b/perllib/FixMyStreet.pm index 6c664f1d1..cc5286bbb 100644 --- a/perllib/FixMyStreet.pm +++ b/perllib/FixMyStreet.pm @@ -92,12 +92,13 @@ sub override_config($&) { mySociety::MaPit::configure($config->{MAPIT_URL}) if $config->{MAPIT_URL}; - # For historical reasons, we have two ways of askig for config variables. + # For historical reasons, we have two ways of asking for config variables. # Override them both, I'm sure we'll find time to get rid of one eventually. my $override_guard1 = Sub::Override->new( "FixMyStreet::config", sub { my ($class, $key) = @_; + return { %CONFIG, %$config } unless $key; return $config->{$key} if exists $config->{$key}; my $orig_config = mySociety::Config::load_default(); return $orig_config->{$key} if exists $orig_config->{$key}; |