summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2014-12-20 14:13:18 +0100
committerDaniel Friesel <derf@finalrewind.org>2014-12-20 14:13:18 +0100
commit50df6aa76dca9440f4aaeb86ab6893366bcef296 (patch)
tree0004f2fe758c58172c0c8eab83535c10fbefa669
parent4cfe87198211954724638540a5d7a38ff0229716 (diff)
index: Use List::MoreUtils::any with full package name
'any' is also used by Mojolicious' routing engine, so otherwise we have namespace clashes
-rw-r--r--index.pl8
1 files changed, 4 insertions, 4 deletions
diff --git a/index.pl b/index.pl
index c311f20..21f43d9 100644
--- a/index.pl
+++ b/index.pl
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use Mojolicious::Lite;
use Cache::File;
-use List::MoreUtils qw(any);
+use List::MoreUtils qw();
use Travel::Status::DE::DeutscheBahn;
use Travel::Status::DE::IRIS;
use Travel::Status::DE::IRIS::Stations;
@@ -206,14 +206,14 @@ sub handle_request {
if ( $result->isa('Travel::Status::DE::IRIS::Result') ) {
@route = $result->route_post;
}
- if ( not( any { $_ =~ m{$via}io } @route ) ) {
+ if ( not( List::MoreUtils::any { $_ =~ m{$via}io } @route ) ) {
next;
}
}
- if ( @platforms and not( any { $_ eq $platform } @platforms ) ) {
+ if ( @platforms and not( List::MoreUtils::any { $_ eq $platform } @platforms ) ) {
next;
}
- if ( @lines and not( any { $line =~ m{^$_} } @lines ) ) {
+ if ( @lines and not( List::MoreUtils::any { $line =~ m{^$_} } @lines ) ) {
next;
}
if ( $backend eq 'iris' and $admode eq 'arr' and not $result->arrival )