summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBirte Kristina Friesel <derf@finalrewind.org>2024-08-10 18:35:42 +0200
committerBirte Kristina Friesel <derf@finalrewind.org>2024-08-10 18:35:42 +0200
commitecda72f5bb0adb71d783039a24322f9aac324647 (patch)
treebb0ca2286b36367e2ec0ef9b8fb5460e897176ff
parentcbdb7037cbf6c47add9f8e901673811cca5c483e (diff)
DBWagenreihung: fix misleading 'station data' message in errstr
-rw-r--r--lib/Travel/Status/DE/DBWagenreihung.pm13
1 files changed, 6 insertions, 7 deletions
diff --git a/lib/Travel/Status/DE/DBWagenreihung.pm b/lib/Travel/Status/DE/DBWagenreihung.pm
index cbc30de..99291e3 100644
--- a/lib/Travel/Status/DE/DBWagenreihung.pm
+++ b/lib/Travel/Status/DE/DBWagenreihung.pm
@@ -83,15 +83,14 @@ sub get_wagonorder {
number => $train_number,
time => $time
};
- my ( $content, $err ) = $self->get_with_cache(
- $cache,
- $api_base . '?'
- . join( '&',
- map { $_ . '=' . $self->{param}{$_} } keys %{ $self->{param} } )
- );
+ my $url
+ = $api_base . '?'
+ . join( '&',
+ map { $_ . '=' . $self->{param}{$_} } keys %{ $self->{param} } );
+ my ( $content, $err ) = $self->get_with_cache( $cache, $url );
if ($err) {
- $self->{errstr} = "Failed to fetch station data: $err";
+ $self->{errstr} = "GET $url: $err";
return;
}
$json = $self->{from_json} = $self->{json}->utf8->decode($content);