diff options
Diffstat (limited to 'perllib/FixMyStreet/App.pm')
| -rw-r--r-- | perllib/FixMyStreet/App.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/perllib/FixMyStreet/App.pm b/perllib/FixMyStreet/App.pm index 1adba8482..6728ebef8 100644 --- a/perllib/FixMyStreet/App.pm +++ b/perllib/FixMyStreet/App.pm @@ -200,23 +200,23 @@ sub setup_dev_overrides { return unless $c->config->{STAGING_SITE}; # Extract all the _override_xxx parameters - my $params = $c->req->parameters; - delete $params->{$_} for grep { !m{^_override_} } keys %$params; + my %params = %{ $c->req->parameters }; + delete $params{$_} for grep { !m{^_override_} } keys %params; # stop if there is nothing to add - return 1 unless scalar keys %$params; + return 1 unless scalar keys %params; # Check to see if we should clear all - if ( $params->{_override_clear_all} ) { + if ( $params{_override_clear_all} ) { delete $c->session->{overrides}; return; } # check for all the other _override params and set their values my $overrides = $c->session->{overrides} ||= {}; - foreach my $raw_key ( keys %$params ) { + foreach my $raw_key ( keys %params ) { my ($key) = $raw_key =~ m{^_override_(.*)$}; - $overrides->{$key} = $params->{$raw_key}; + $overrides->{$key} = $params{$raw_key}; } return $overrides; |