summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Changelog6
-rw-r--r--lib/Travel/Status/DE/DeutscheBahn.pm4
2 files changed, 10 insertions, 0 deletions
diff --git a/Changelog b/Changelog
index ac1e794..64760ee 100644
--- a/Changelog
+++ b/Changelog
@@ -1,3 +1,9 @@
+git HEAD
+
+ [Travel::Status::DE::DeutscheBahn]
+ * Fix ->results returning duplicate connections when accessed more than
+ one time
+
Travel::Status::DE::DeutscheBahn 0.04 - Wed Jul 13 2011
[Travel::Status::DE::DeutscheBahn::Result]
diff --git a/lib/Travel/Status/DE/DeutscheBahn.pm b/lib/Travel/Status/DE/DeutscheBahn.pm
index 46c3928..baf1fe2 100644
--- a/lib/Travel/Status/DE/DeutscheBahn.pm
+++ b/lib/Travel/Status/DE/DeutscheBahn.pm
@@ -113,6 +113,10 @@ sub results {
\d{1,2}:\d{1,2}
}mx;
+ if ( defined $self->{results} ) {
+ return @{ $self->{results} };
+ }
+
for my $tr ( @{ $self->{tree}->findnodes($xp_element) } ) {
my ($n_time) = $tr->findnodes($xp_time);