diff --git a/lib/Travelynx/Helper/HAFAS.pm b/lib/Travelynx/Helper/HAFAS.pm index a7c4abc..84226a4 100644 --- a/lib/Travelynx/Helper/HAFAS.pm +++ b/lib/Travelynx/Helper/HAFAS.pm @@ -198,10 +198,14 @@ sub get_xml_p { $body =~ s{Wagen \d+ \K&}{&}; $body =~ s{Wagen \d+, \d+ \K&}{&}; - # is invalid XML. + # is invalid XML. # Work around it. $body - =~ s{]+)text="([^"]*)"([^"=]*)""}{]+)text="([^"]*)"([^"=>]*)""}{ + $body + =~ s{]+)lead="([^"]*)"([^"=>]*)"([^"]*)"}{. while ( $body