From 8a769cd36383f9af895bae370d478bf6b9dae999 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Mon, 20 Oct 2014 10:02:12 +0200 Subject: Fix $result->delay accessor --- lib/Travel/Status/DE/DeutscheBahn/Result.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/Travel') diff --git a/lib/Travel/Status/DE/DeutscheBahn/Result.pm b/lib/Travel/Status/DE/DeutscheBahn/Result.pm index 9c62a71..10f0f79 100644 --- a/lib/Travel/Status/DE/DeutscheBahn/Result.pm +++ b/lib/Travel/Status/DE/DeutscheBahn/Result.pm @@ -55,7 +55,7 @@ sub delay { if ( $info =~ m{ p.nktlich }ox ) { return 0; } - if ( $info =~ m{ ca[.] \s (? \d+ ) \s Minuten \s sp.ter }ox ) { + if ( $info =~ m{ (?: ca \. \s* )? \+ (? \d+) :? \s* }ox ) { return $+{delay}; } -- cgit v1.2.3