Commit 8a769cd3 authored by Birte Kristina Friesel's avatar Birte Kristina Friesel
Browse files

Fix $result->delay accessor

parent 119c3e76

Changelog

+1 −0
Original line number Diff line number Diff line 
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

lib/Travel/Status/DE/DeutscheBahn/Result.pm

+1 −1
Original line number Diff line number Diff line
@@ -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};

	}

t/in/essen.html

+2 −2
Original line number Diff line number Diff line
@@ -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>