From 2bb64f91d3dc628728bb9de3a9c3888462f66eb2 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Mon, 2 May 2016 17:26:53 +0200
Subject: Fix "Uninitialized value in split" for stations without meta tags

---
 lib/Travel/Status/DE/IRIS.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Travel/Status/DE/IRIS.pm b/lib/Travel/Status/DE/IRIS.pm
index 49dc01a..269ea6e 100644
--- a/lib/Travel/Status/DE/IRIS.pm
+++ b/lib/Travel/Status/DE/IRIS.pm
@@ -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;
-- 
cgit v1.2.3