Fix $result->delay accessor

3 files changed, 4 insertions, 3 deletions

diff --git a/Changelog b/Changelog
index 31c9881..0174a9f 100644
--- a/Changelog
+++ b/Changelog
@@ -1,6 +1,7 @@
 git HEAD
 
     * Add primitive JSON serializer to Travel::Status::DE::DeutscheBahn::Result
+    * Fix $result->delay (changes in RIS output format)
 
 Travel::Status::DE::DeutscheBahn 1.02 - Tue Sep 17 2013
 
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};
 	}
 
diff --git a/t/in/essen.html b/t/in/essen.html
index 10ddaf5..246b430 100644
--- a/t/in/essen.html
+++ b/t/in/essen.html
@@ -1293,7 +1293,7 @@ M&#252;nster(Westf)Hbf
 <strong>6</strong><br />
 </td>
 <td class="ris">
-<span><span style="color:#f00;">ca.&nbsp;15&nbsp;Minuten&nbsp;sp&#228;ter</span></span>,<br/><span class="red">Grund: Stellwerksst&#246;rung /-ausfall</span></td>
+<span><span style="color:#f00;">ca. +15</span></span>,<br/><span class="red">Grund: Stellwerksst&#246;rung /-ausfall</span></td>
 </tr>
 <tr>
 <td class="time">19:41</td>
@@ -1906,7 +1906,7 @@ Hamburg-Altona
 <strong>4</strong><br />
 </td>
 <td class="ris">
-<span><span style="color:#f00;">ca.&nbsp;15&nbsp;Minuten&nbsp;sp&#228;ter</span></span>,<br/><span class="red">Grund: Stellwerksst&#246;rung /-ausfall</span></td>
+<span><span style="color:#f00;">ca. +15</span></span>,<br/><span class="red">Grund: Stellwerksst&#246;rung /-ausfall</span></td>
 </tr>
 <tr>
 <td class="time">20:00</td>