From 521ed1eb87b6dbfeb18086cfa68019e49f9d5721 Mon Sep 17 00:00:00 2001 From: Birte Kristina Friesel Date: Mon, 12 Aug 2024 18:17:05 +0200 Subject: DBDB: handle undef train_types --- lib/Travelynx/Helper/DBDB.pm | 1 + 1 file changed, 1 insertion(+) diff --git a/lib/Travelynx/Helper/DBDB.pm b/lib/Travelynx/Helper/DBDB.pm index 82cdc72..10b9136 100644 --- a/lib/Travelynx/Helper/DBDB.pm +++ b/lib/Travelynx/Helper/DBDB.pm @@ -29,6 +29,7 @@ sub new { sub has_wagonorder_p { my ( $self, %opt ) = @_; + $opt{train_type} //= q{}; my $datetime = $opt{datetime}->clone->set_time_zone('UTC'); my %param = ( administrationId => 80, -- cgit v1.2.3