From 8a769cd36383f9af895bae370d478bf6b9dae999 Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
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/Status/DE/DeutscheBahn/Result.pm')

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 (?<delay> \d+ ) \s Minuten \s sp.ter }ox ) {
+	if ( $info =~ m{ (?: ca \. \s* )? \+ (?<delay> \d+) :? \s* }ox ) {
 		return $+{delay};
 	}
 
-- 
cgit v1.2.3