summaryrefslogtreecommitdiff
path: root/lib/Travel/Status/DE/HAFAS/Journey.pm
diff options
context:
space:
mode:
authorBirte Kristina Friesel <derf@finalrewind.org>2024-08-10 18:17:37 +0200
committerBirte Kristina Friesel <derf@finalrewind.org>2024-08-10 18:17:37 +0200
commit4c9056d8aa1f4e5c804b116252a7ed189085435b (patch)
treee34a0d56d5ea1306d8a52b2ad1f1f01516106bdb /lib/Travel/Status/DE/HAFAS/Journey.pm
parent2c48152c47ceb5ad07126d10cea06acdbaa5c0ed (diff)
Release v6.046.04
Diffstat (limited to 'lib/Travel/Status/DE/HAFAS/Journey.pm')
-rw-r--r--lib/Travel/Status/DE/HAFAS/Journey.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Travel/Status/DE/HAFAS/Journey.pm b/lib/Travel/Status/DE/HAFAS/Journey.pm
index 07325e5..756e193 100644
--- a/lib/Travel/Status/DE/HAFAS/Journey.pm
+++ b/lib/Travel/Status/DE/HAFAS/Journey.pm
@@ -11,7 +11,7 @@ use DateTime::Format::Strptime;
use List::Util qw(any uniq);
use Travel::Status::DE::HAFAS::Stop;
-our $VERSION = '6.03';
+our $VERSION = '6.04';
Travel::Status::DE::HAFAS::Journey->mk_ro_accessors(
qw(datetime sched_datetime rt_datetime tz_offset
@@ -226,7 +226,7 @@ sub new {
my $load = $tco_kv->{rRT} // $tco_kv->{r};
# BVG uses 11 .. 13 rather than 1 .. 4
- if ( $load > 10 ) {
+ if ( defined $load and $load > 10 ) {
$load -= 10;
}
@@ -437,7 +437,7 @@ journey received by Travel::Status::DE::HAFAS
=head1 VERSION
-version 6.03
+version 6.04
=head1 DESCRIPTION