Commit a13eaa98 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Catch LibXML parser errors

parent 8f8a8df7

lib/Travel/Status/DE/IRIS.pm

+8 −3
Original line number Diff line number Diff line
@@ -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];