Commit 50df6aa7 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

index: Use List::MoreUtils::any with full package name 

'any' is also used by Mojolicious' routing engine, so otherwise we have
namespace clashes
parent 4cfe8719

index.pl

+4 −4
Original line number Diff line number Diff line 
#!/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 )