aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorHakim Cassimally <hakim@mysociety.org>2013-12-05 17:11:17 +0000
committerHakim Cassimally <hakim@mysociety.org>2013-12-09 16:51:43 +0000
commit21b7c0a9fab968e816cd291c70d3299b86e59afc (patch)
tree4a13577b7c9b43178f9f80eedacc5c53be951322
parent1ad7eb19f18ac58f63ce6bf6b289b658a75b67a8 (diff)
Suppress 'once' warning
-rw-r--r--perllib/FixMyStreet/Cobrand/Default.pm7
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');