Fix invalid geolocation list when less than 5 unique station names are nearby

This issue was introduced in 7c7b5e9f95 and
caused the client-side javascript code to crash

lib/Travelynx/Controller/Traveling.pm

@@ -140,12 +140,21 @@ sub geolocation {
 		} Travel::Status::DE::IRIS::Stations::get_station_by_location( $lon,
 			$lat, 10 );
 		@candidates = uniq_by { $_->{name} } @candidates;
+		if ( @candidates > 5 ) {
 			$self->render(
 				json => {
 					candidates => [ @candidates[ 0 .. 4 ] ],
 				}
 			);
 		}
+		else {
+			$self->render(
+				json => {
+					candidates => [@candidates],
+				}
+			);
+		}
+	}
 }
 
 sub log_action {