From b8b70bca030ff0db174bfde92418ed98617b0bdb Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Sat, 6 Feb 2021 18:05:51 +0100
Subject: HAFAS: Remove all illegal linebreaks from attributes, not just the
 first

---
 lib/DBInfoscreen/Helper/HAFAS.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'lib/DBInfoscreen/Helper/HAFAS.pm')

diff --git a/lib/DBInfoscreen/Helper/HAFAS.pm b/lib/DBInfoscreen/Helper/HAFAS.pm
index a7c07c3..b97248d 100644
--- a/lib/DBInfoscreen/Helper/HAFAS.pm
+++ b/lib/DBInfoscreen/Helper/HAFAS.pm
@@ -121,8 +121,11 @@ sub get_xml_p {
 			  =~ s{<Attribute([^>]+)text="([^"]*)"([^"=]*)""}{<Attribute$1text="$2&#042;$3&#042;"}s;
 
 			# Dito for <HIMMessage [...] lead="[...]<br>[...]">.
-			$body
-			  =~ s{<HIMMessage([^>]+)lead="([^"]*)<br/?>([^"=]*)"}{<HIMMessage$1lead="$2 $3"}s;
+			while ( $body
+				=~ s{<HIMMessage([^>]+)lead="([^"]*)<br/?>([^"=]*)"}{<HIMMessage$1lead="$2 $3"}gs
+			  )
+			{
+			}
 
 			my $tree;
 
-- 
cgit v1.2.3