diff options
| author | Dave Arter <davea@mysociety.org> | 2016-07-21 15:20:12 +0100 |
|---|---|---|
| committer | Dave Arter <davea@mysociety.org> | 2016-07-21 15:20:12 +0100 |
| commit | b45b29c83fe2082820a22b659338f7ab328451ce (patch) | |
| tree | 1eb872c70caefd25dcf5edfdf30e009fccd22925 /perllib/FixMyStreet/App/Controller | |
| parent | 5e6d75814fc24da3d298df258989049a57c5d75f (diff) | |
Fix "keys on reference is experimental" warning in Perl 5.20+
Diffstat (limited to 'perllib/FixMyStreet/App/Controller')
| -rw-r--r-- | perllib/FixMyStreet/App/Controller/Admin.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perllib/FixMyStreet/App/Controller/Admin.pm b/perllib/FixMyStreet/App/Controller/Admin.pm index 35af9a1a6..93e8f4b22 100644 --- a/perllib/FixMyStreet/App/Controller/Admin.pm +++ b/perllib/FixMyStreet/App/Controller/Admin.pm @@ -244,7 +244,7 @@ sub bodies : Path('bodies') : Args(0) { $c->forward('/auth/check_csrf_token'); my $params = $c->forward('body_params'); - unless ( keys $c->stash->{body_errors} ) { + unless ( keys %{$c->stash->{body_errors}} ) { my $body = $c->model('DB::Body')->create( $params ); my @area_ids = $c->get_param_list('area_ids'); foreach (@area_ids) { |