aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perllib/FixMyStreet/Cobrand/Bromley.pm5
1 files changed, 2 insertions, 3 deletions
diff --git a/perllib/FixMyStreet/Cobrand/Bromley.pm b/perllib/FixMyStreet/Cobrand/Bromley.pm
index b57113c5a..3c7580eb1 100644
--- a/perllib/FixMyStreet/Cobrand/Bromley.pm
+++ b/perllib/FixMyStreet/Cobrand/Bromley.pm
@@ -29,9 +29,8 @@ sub disambiguate_location {
my $town = 'Bromley';
# Bing turns High St Bromley into Bromley High St which is in
# Bromley by Bow.
- if ( $string =~ /^high\s+st(reet)?$/i ) {
- $town .= ', BR1';
- }
+ $town .= ', BR1' if $string =~ /^high\s+st(reet)?$/i;
+ $town = '' if $string =~ /orpington/i;
return {
%{ $self->SUPER::disambiguate_location() },
town => $town,