Some fixes for when warnings are on during test run.

1 files changed, 11 insertions, 2 deletions

diff --git a/perllib/FixMyStreet/App/Controller/Rss.pm b/perllib/FixMyStreet/App/Controller/Rss.pm
index fe4b652ed..baaa3b927 100755
--- a/perllib/FixMyStreet/App/Controller/Rss.pm
+++ b/perllib/FixMyStreet/App/Controller/Rss.pm
@@ -106,10 +106,19 @@ sub local_problems_pc_distance : Path('pc') : Args(2) {
 
 }
 
-sub local_problems : LocalRegex('^(n|l)/([\d.-]+)[,/]([\d.-]+)(?:/(\d+))?$') {
+sub local_problems_dist : LocalRegex('^(n|l)/([\d.-]+)[,/]([\d.-]+)/(\d+)$') {
     my ( $self, $c ) = @_;
+    $c->forward( 'local_problems', $c->req->captures );
+}
+
+sub local_problems_no_dist : LocalRegex('^(n|l)/([\d.-]+)[,/]([\d.-]+)$') {
+    my ( $self, $c ) = @_;
+    $c->forward( 'local_problems', $c->req->captures );
+}
+
+sub local_problems : Private {
+    my ( $self, $c, $type, $a, $b, $d ) = @_;
 
-    my ( $type, $a, $b, $d) = @{ $c->req->captures };
     $c->forward( 'get_query_parameters', [ $d ] );
 
     $c->detach( 'redirect_lat_lon', [ $a, $b ] )