summaryrefslogtreecommitdiff
path: root/lib/Travel/Status/DE/DeutscheBahn
diff options
context:
space:
mode:
authorDaniel Friesel <derf@finalrewind.org>2014-10-20 10:02:12 +0200
committerDaniel Friesel <derf@finalrewind.org>2014-10-20 10:02:12 +0200
commit8a769cd36383f9af895bae370d478bf6b9dae999 (patch)
treea667701b091005b2aaf7869c170527e0c4c2c3a1 /lib/Travel/Status/DE/DeutscheBahn
parent119c3e764ce09481fa09027ba2aacc444876b139 (diff)
Fix $result->delay accessor
Diffstat (limited to 'lib/Travel/Status/DE/DeutscheBahn')
-rw-r--r--lib/Travel/Status/DE/DeutscheBahn/Result.pm2
1 files changed, 1 insertions, 1 deletions
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};
}