diff options
author | Hakim Cassimally <hakim@mysociety.org> | 2013-12-05 17:11:17 +0000 |
---|---|---|
committer | Hakim Cassimally <hakim@mysociety.org> | 2013-12-09 16:51:43 +0000 |
commit | 21b7c0a9fab968e816cd291c70d3299b86e59afc (patch) | |
tree | 4a13577b7c9b43178f9f80eedacc5c53be951322 | |
parent | 1ad7eb19f18ac58f63ce6bf6b289b658a75b67a8 (diff) |
Suppress 'once' warning
-rw-r--r-- | perllib/FixMyStreet/Cobrand/Default.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/perllib/FixMyStreet/Cobrand/Default.pm b/perllib/FixMyStreet/Cobrand/Default.pm index 38efb7a35..a39a98135 100644 --- a/perllib/FixMyStreet/Cobrand/Default.pm +++ b/perllib/FixMyStreet/Cobrand/Default.pm @@ -295,8 +295,11 @@ to null/0. sub uri { my ( $self, $uri ) = @_; - (my $map_class = $FixMyStreet::Map::map_class) =~ s/^FixMyStreet::Map:://; - return $uri unless $map_class =~ /OSM|FMS/; + { + no warnings 'once'; + (my $map_class = $FixMyStreet::Map::map_class) =~ s/^FixMyStreet::Map:://; + return $uri unless $map_class =~ /OSM|FMS/; + } $uri->query_param( zoom => 3 ) if $uri->query_param('lat') && !$uri->query_param('zoom'); |