use any instead of boolean grep

1 files changed, 3 insertions, 2 deletions

diff --git a/cgi/index.pl b/cgi/index.pl
index 06eb677..1a88a29 100644
--- a/cgi/index.pl
+++ b/cgi/index.pl
@@ -1,6 +1,7 @@
 #!/usr/bin/env perl
 use Mojolicious::Lite;
 use Cache::File;
+use List::MoreUtils qw(any);
 use Travel::Status::DE::DeutscheBahn;
 use 5.014;
 use utf8;
@@ -76,11 +77,11 @@ sub handle_request {
 		my $platform = ( split( / /, $result->platform ) )[0];
 		if ($via) {
 			my @route = $result->route;
-			if ( not( grep { $_ =~ m{$via}io } @route ) ) {
+			if ( not( any { $_ =~ m{$via}io } @route ) ) {
 				next;
 			}
 		}
-		if ( @platforms and not grep { $_ eq $platform } @platforms ) {
+		if ( @platforms and not( any { $_ eq $platform } @platforms ) ) {
 			next;
 		}
 		my $info = $result->info;