Commit 2bb64f91 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Fix "Uninitialized value in split" for stations without meta tags

parent 330fe60c

lib/Travel/Status/DE/IRIS.pm

+1 −1
Original line number Diff line number Diff line
@@ -217,7 +217,7 @@ sub get_station { 
			printf( " -> %s (%s / %s)\n", @{ $ret[-1] }{qw{name uic ds100}} );

		}



		if ( $opt{recursive} ) {

		if ( $opt{recursive} and defined $station_node->getAttribute('meta') ) {

			my @refs

			  = uniq( split( m{ \| }x, $station_node->getAttribute('meta') ) );

			@refs = grep { not( $_ ~~ \@seen or $_ ~~ \@queue ) } @refs;