Remove white space next to colon on keyword suggestion

metacpan · Jul 29, 2014 · dfc9452 · dfc9452
1 parent e3d4f13
commit dfc9452
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 4 deletions.
diff --git a/lib/MetaCPAN/Web/Controller/Search.pm b/lib/MetaCPAN/Web/Controller/Search.pm
@@ -61,7 +61,7 @@ sub index : Path {
 
         if ( !$results->{total} && !$authors->{total} ) {
             my $suggest = $query;
-            $suggest =~ s/:+/::/g;
+            $suggest =~ s/\s*:+\s*/::/g;
             if ( $suggest ne $query ) {
                 $c->stash(
                     {

diff --git a/t/controller/search/suggestion.t b/t/controller/search/suggestion.t
@@ -4,9 +4,11 @@ use Test::More;
 use MetaCPAN::Web::Test;
 
 my %tests = (
-    'DBIx:Class:::ResultSet' => 'DBIx::Class::ResultSet',
-    'DBIx::Class:ResultSet'  => 'DBIx::Class::ResultSet',
-    'DBIx:Class'             => 'DBIx::Class',
+    'DBIx:Class:::ResultSet'   => 'DBIx::Class::ResultSet',
+    'DBIx::Class:ResultSet'    => 'DBIx::Class::ResultSet',
+    'DBIx:Class'               => 'DBIx::Class',
+    'DBIx: Class'              => 'DBIx::Class',
+    'DBIx ::Class:  ResultSet' => 'DBIx::Class::ResultSet',
 );
 
 test_psgi app, sub {