summaryrefslogtreecommitdiff
path: root/lib/Travel/Status
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Travel/Status')
-rw-r--r--lib/Travel/Status/DE/IRIS.pm11
1 files changed, 8 insertions, 3 deletions
diff --git a/lib/Travel/Status/DE/IRIS.pm b/lib/Travel/Status/DE/IRIS.pm
index f9a05ee..efb080d 100644
--- a/lib/Travel/Status/DE/IRIS.pm
+++ b/lib/Travel/Status/DE/IRIS.pm
@@ -31,7 +31,7 @@ sub new {
developer_mode => $opt{developer_mode},
iris_base => $opt{iris_base}
// 'http://iris.noncd.db.de/iris-tts/timetable',
- lookahead => $opt{lookahead} // ( 2 * 60 ),
+ lookahead => $opt{lookahead} // ( 2 * 60 ),
lookbehind => $opt{lookbehind} // ( 0 * 60 ),
main_cache => $opt{main_cache},
rt_cache => $opt{realtime_cache},
@@ -131,7 +131,7 @@ sub new {
}
@{ $self->{results} } = grep {
- my $d = ( $_->departure // $_->arrival );
+ my $d = ( $_->departure // $_->arrival );
my $sd = $_->sched_departure // $_->sched_arrival // $d;
$d = $d->subtract_datetime( $self->{datetime} );
$sd = $sd->subtract_datetime( $self->{datetime} );
@@ -215,7 +215,12 @@ sub get_station {
}
}
- my $xml_st = XML::LibXML->load_xml( string => $raw );
+ my $xml_st;
+ eval { $xml_st = XML::LibXML->load_xml( string => $raw ) };
+ if ($@) {
+ $self->{errstr} = "Parse error: $@";
+ return;
+ }
my $station_node = ( $xml_st->findnodes('//station') )[0];