fix autocomplete not including exact matches

haarg · haarg · commit c198e82f6789 · 2025-03-31T20:19:15.000+02:00
This was broken by a29eff9.
diff --git a/lib/MetaCPAN/Query/File.pm b/lib/MetaCPAN/Query/File.pm
@@ -452,7 +452,7 @@ sub _autocomplete {
 
     return {
         took        => $sugg_res->{took} + $res->{took} + $fav_res->{took},
-        suggestions => \@sorted,
+        suggestions => [ ( $exact ? $exact : () ), @sorted ],
     };
 }
 

Original file line number	Diff line number	Diff line change
`@@ -452,7 +452,7 @@ sub _autocomplete {`
`452`	`452`
`453`	`453`	`return {`
`454`	`454`	`took => $sugg_res->{took} + $res->{took} + $fav_res->{took},`
`455`		`- suggestions => \@sorted,`
	`455`	`+ suggestions => [ ( $exact ? $exact : () ), @sorted ],`
`456`	`456`	`};`
`457`	`457`	`}`
`458`	`458`