diff options
| author | Birte Kristina Friesel <derf@finalrewind.org> | 2024-08-10 18:35:42 +0200 |
|---|---|---|
| committer | Birte Kristina Friesel <derf@finalrewind.org> | 2024-08-10 18:35:42 +0200 |
| commit | ecda72f5bb0adb71d783039a24322f9aac324647 (patch) | |
| tree | bb0ca2286b36367e2ec0ef9b8fb5460e897176ff | |
| parent | cbdb7037cbf6c47add9f8e901673811cca5c483e (diff) | |
DBWagenreihung: fix misleading 'station data' message in errstr
| -rw-r--r-- | lib/Travel/Status/DE/DBWagenreihung.pm | 13 |
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); |